
Pcycket-Compufer s 
CASIO SF 9500 
Musik auf dem PC: 
Die SOUND-BLASTE 


6,- DM 


ÖS 50, - 


sfr 6, - 


Juni/Juli 1991 
7. Jahrgang 


f 

Rund ums Geld 

- Steuer 

- Konto 

- Belege 

Hardware 

^^Multifloppy: 

Diskettenformatei 


Bericht 

- CeBIT-Neuheiten 

- Der CPC-Doppelgänger 


CPC ■ PCW JOYCE 


















































































































































































































































































































































Die aktuelle 
Shareware-Buchserie 
vom 

PD-SERVICE LAGE 

Wir wahren das Shareware-Konzept, denn durch unsere neue 
Buchreihe, in der Programm-Anleitung und Shareware-Diskette 
für nur 15,00 DM erhältlich sind, wollen wir Anwender von 
der Leistungsfähigkeit dieser Shareware-Programme 
überzeugen, um die Registrierungsbereitschaft zu erhöhen. 

Ein neues 

Shareware-Konzept 

Das Lage Journal 
Top-Programm 

Bisher sind folgende Titel lieferbar: 

GRAPHIC WORKSHOP 
(Super-Gral'ik-Utility) 

DARK AGES 

(Grafik-Adventure mit Sound) 

DESKTOP PA INT 

(Neues Mal-Programm der Luxus-Klasse) 

Buch mit Shareware-Diskette zusammen nur 15,- DM 


Unsere besonderere Leistung für Shareware-Programmierer und Benutzer 
ist der Registrierservice, denn bei uns erhalten Sie die Vollversionen 
weltweit bekannter und beliebter Shareware-Produkte, z.B.: 


AS-EASY-AS 

112.00 DM 

F1NGERPAINT V. 4.1 

56.00 DM 

GRAPHIC WORKSHOP (deutsch) 

87.00 DM 

GRAPHIC WORKSHOP (m. dt. Handbuch) 

97,00 DM 

HYPER DISK 4.2 

98.00 DM 

DESKTOP PA INT 

79.00 DM 

DESKTOP PAINT 256 

79.00 DM 

AUTOMENU (dt. Vollversion) 

128.50 DM 

TREEVIEW 

68.00 DM 

COMMANDER KEEN-SPIELE PAKET 

58.50 DM 

PRINT PARTNER 

54.00 DM 

FB-TRANSLATOR 

49.00 DM 

DISK DUPLICATOR 

45.00 DM 

PKZI P/PKUNZIP 1.10 

88,00 DM 

BACK& FORTH/FlLE/MENU COMMANDO 

> 196.00DM 

QEDIT ADVANCED 

108.00 DM 

FORM GEN 

72.50 DM 

DARK AGES SPIELE PAKET 

58.50 DM 



PD-SERVICE-LAGE 

Bernd Schulz 
Postfach 1743 
4937 Lage/Lippe 

Tel.: 05232-66912 

Wir nehmen telefonische Bestellungen 
tägl. von 10-14 Uhr persönlich entgegen, 
zu allen anderen Zeiten steht Ihnen unser 
24-Stunden-Service über Telefax und 
Bildschirmtext zur Verfügung 
FAX: 05232-4039 
BTX: *PD SERVICE# 

Wir liefern Ihnen stets die aktuellsten Versionen 
PD- und Shareware-Programme 
für IBM-kompatible PCs! 

Zudem haben wir eine der weltweit größten 
UNIX-Sharewarc-Bibliolheken! 

Wir bieten eine Riesenauswahl an VGA-GIF-Bildcrn, 

Spielen. DTP-Ergänzungen. sowie deutschen und 
internationalen Programmen 

Unsere Kopiergebühren: 

5,25 Zoll Disketten ab 3,00 DM 
3,5 Zoll Disketten ab 5,00 DM 

Fordern Sie für 2,50 DM (in Briefmarken) unsere Katalogdisketten, 
mit unserem Super-Suchprogramm an 
Zahlung per Vorausscheck, Nachnahme oder mit folgenden Kreditkarten: 
American Express, VISA. Euro-/Mastercard 

Achten Sie auf unser 
Disketten - Siegel, denn 
es bürgt für Sicherheit! 



PD-Service-Lage ist anerkanntes Mitglied der Association of Shareware Professionals (ASP) 
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Editorial—i 



Liebe Leserinnen 
und Leser, ... 

in dieser hektischen Zeit muß man sich immer wieder an neue Gesichter gewöhnen - 
öfter, als einem lieb ist. Heute begegnet Ihnen auch in Ihrer liebgewordenen 
PC Arnstrad International ein neues Gesicht - meines. 

Ich heiße Peter Schmitz, bin knapp über 30, verheiratet und habe ein niedliches zwei¬ 
einhalbjähriges Söhnchen, das Ihnen bereits erklären kann, daß auf einem Computer¬ 
monitor “viele, viele Worte“ sind. 

Meine journalistischen Hörner habe ich mir vor ein paar Jahren mit dem “ATARI ma- 
gazin“ abgestoßen, das hauptsächlich die Benutzer der 8-Bit-Ataris mit Informationen 
versorgte. In meinem Herzen bin ich den 8-Bit-Computern treu geblieben, obgleich 
natürlich die technische Kntwicklung der letzten Jahre an keinem von uns spurlos vor¬ 
beigegangen sein dürfte. 

Die guten alten CPCs — ob 464, 664 oder 6128 — sind nicht schlechter geworden, nur 
weil jetzt plötzlich alle Welt meint, unter einem Systemtakt von 16 Megahertz liefe 
nichts mehr. Und die Anwender/innen der 8-Bit-Computer waren auf jeden Fall schon 
immer eine engagierte und sympathische Gruppe. 

Darum freut es mich, daß ich von nun an die PC Arnstrad als Chefredakteur betreuen 
werde. Übrigens: Ich bin der Langhaarige hinten auf dem Bild. Vorne sehen Sie Jörg 
Gurowski. Thomas Kallay und Ralf Schössler-Niebergall - aber die kennen Sie ja 
schon. Unser kleines Team wird dafür sorgen, daß Sie, liebe Leserinnen und Leser, 
auch weiterhin das bei uns finden, was Ihnen bei der Arbeit mit Ihrem CPC oder PCW 
weiterhilft. 

In diesem Heft gibt es beispielsweise ein paar Programme rund ums Geld, die 
Durchblick schaffen und die Arbeit mit dem Papierkram leichter machen. Auch der 
Diskmanager ist nicht ohne — sollen mal die 16-Bit-Anwender nicht meinen, sie hät¬ 
ten komfortable Benutzer-Interfaces und Shells fürs Betriebssystem gepachtet. 

Und daß über all den Bits und Bytes auch der Spaß an der Sache nicht zu kurz kommt, 
das wünsche ich Ihnen und mir. 


Herzlichst Ihr 
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[—Programm 


Herrscher über 
Land 

und Leute 

Eine Reise ins 
Geschäftsleben 
des Mittelalters 

Nehmen Sie unser Angebot an! Lassen Sie sich durch LANDGRAF ins 
finstere Mittelalter entfuhren. Erobern Sie Land und bauen Sie es auf. 
Geben Sie aber acht auf Ihre Nachbarn, denn Sie könnten überfallen 
werden. Und vor allem, denken Sie an Ihre Bauern, sie brauchen aur** 
etwas zum Essen. 


LANDGRAF ist ein grafikunterstütztes 
Strategiespiel für alle CPC-Rechner. Es 
wurde fast vollständig in LOCOMO- 
TIVE-BASIC programmiert, lediglich 
die Routinen der Sprite-Grafik sind in 
Maschinencode verfaßt. 

Das Programm wurde auf einem CPC 
464 mit Diskettenlaufwerk entwickelt. 
Es funktioniert aber auch ohne Ein¬ 
schränkung mit dem Kassettenlauf¬ 
werk. 

Ein kleiner Informationsteil ist im Pro¬ 
gramm eingebaut. Sämtliche Menüs 
werden durch Betätigung der Anfangs¬ 
buchstaben gesteuert (beachten Sie 
auch die jeweilige Hilfszeile). Im Gra¬ 
fikteil steht zur Steuerung ein Cursor- 
Kreuz zur Verfügung. Ihre Wahl bestäti¬ 
gen Sie hier mit der <COPY>-Taste. 
Nach jeder Spielrunde kann der aktuelle 
Spielstand gesichert werden. 

Das Programm LANDGRAF.BAS ist 
folgendermaßen strukturiert: 

100 Copyrightvermerk 
200 Initialisierung anspringen, 
Mitspieler zahl abfragen 
300 Hilfsroutinen 
1000 Vorbereitungen 
1200 Spielschleife 
1300 *** Investitionen *** 

1500 *** Gebietserweiterung *** 
1630 bei Mitspielern 
1890 bei Barbaren 
2200 *** Handel *** 

2400 *** Ereignis? *** 

3000 Nächster Spieler 
3020 Jahresvergleich 
3100 Spielstand sichern? 

3140 Nächstes Jahr 
3160 Programmende 
5000 DATA's 
6000 Hilfsroutinen 
8000 Initialisierung + Nachladen 
der Grafik 

8100 Sprite-Routinen 
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9000 MC-Lader für Sprite-Routinen 

Zu LANDGRAF gehören folgende Pro¬ 
gramme/Dateien: 

- LANDGRAF.BAS ist das 
eigentliche Programm 

- GRAFSPRI.BIN, die Sprite-Grafik 

- LANDFRAG. 1, Ereignisbiock 1 

- GRAFSPRLBAS erzeugt 
GRAFSPRI.BIN 

- LANDFRAG.BAS erzeugt 
LANDFRAG. 1 

- EREIGNIS.BAS, mit diesem Pro¬ 
gramm können weitere Ereignisse 
generiert werden. 

Das Strategiespiel kann von maximal 
vier Personen gespielt werden. Nach 
dem Starten meldet sich das Programm 
nach einiger Zeit mit der Frage nach der 
Anzahl und den Namen der Milspider. 
Zusätzlich wird die Möglichkeit zur Än¬ 
derung des Warntons sowie der Schreib¬ 
farbe angeboten. Danach kann man ein 
Info abrufen sowie einen alten Spiel¬ 
stand laden. 

Investieren, Investieren ... 

Das Spiel beginnt im Jahre 1352 und 
geht bis 1400. Der Spieler kann nun im 
Investitionsmenü Burgen, Minen, Dör¬ 
fer, Geschütze, Felder und Soldaten ein¬ 
kaufen. Soldaten brauchen Unterkunft 
und Nahrung, so daß pro Feld maximal 
zwanzig Soldaten und pro Dorf maxi¬ 
mal fünfzig Soldaten möglich sind. Im 
Grafikteil sieht man die Landschaft, in 
der Immobilien mittels Cursor/Copy- 
Tasten auf eigenen Wald gebaut werden. 
Andere Länder oder Urwald sind nicht 
bebaubar. 
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Programm—i 


Die Länder der einzelnen Spieler liegen 
wie folgt: Spieler eins in der linken obe¬ 
ren Ecke, Spieler zwei rechts oben, 
Spieler drei links unten und Spieler vier 
rechts unten. Um die Gebiete der einzel¬ 
nen Grafschaften besser auseinander zu 
halten, wird ihre jeweils äußere Grenze 
durch eine farbige Linie gekennzeich¬ 
net. 

Hat man seine Investitionen beendet, 
kann man mit maximal drei Angriffen 
seinen Herrschaftsbereich ausdehnen. 
Im Grafikteil wählt man dazu ein Gebiet 
aus, welches an das eigene grenzt. 
Greift man das Barbarengebiet (in der 
Grafik schwarz) an, erobert man Wald; 
bei Mitspielern erobert man das jeweils 
angewählte Objekt. Das alles natürlich 
immer unter der Voraussetzung, daß 
man den Kampf gewinnt. 

Im darauffolgenden Handelsmenü wird 
es möglich, die Erträge aus dem Besitz 
zu verkaufen. Ein gewisser Grundbe¬ 
darf kann dabei jedoch nicht unter¬ 
schritten werden, was vom Programm 
überwacht wird. Nicht verkaufte Güter 
werden gelagert, so daß man auf höhere 
Preise warten kann. 

Nun kann ein unverhofftes Ereignis ein- 
treten, ansonsten ist der nächste Spieler 
am Zug. Wird einem Spieler bei einem 
eventuellen Ereignis zum Beispiel eine 
Mine geschenkt, so bekommt dieser 
auch ein neues Grundstück. Der neue 
Besitz muß also im Urwald positioniert 
werden! 

Unverhoffte Ereignisse 

Am Ende des Jahres erfolgt ein Ver¬ 
gleich der Spieler, wobei der Besitz in 
Talern angezeigt wird. Außerdem kann 
man auf Wunsch den Spielstand auf 
Diskette oder Kassette abspeichern. 

Haben Sie jetzt Lust auf das Spiel be¬ 
kommen, und wollen Sie es abtippen? 
Hier einige Hinweise besonders für 
Kassettenbenutzer. Diese gelten natür¬ 
lich in nicht so zwingender Form auch 
für Diskettenbenutzer: 

Geben Sie zuerst das Listing LAND- 
GRAF.BAS ein und speichern Sie es auf 
Ihrer Spielkassette. Nun tippen Sie 
GRAFSPR1.BAS ab und sichern es auf 
einer anderen Kassette. Nach dem Start 
erzeugt es die Binärdatei GRAF- 
SPR1.B1N, die hinter LAND- 
GRAF.BAS abgelegt werden muß. 
LANDFRAG.BAS wird ebenfalls auf 
der zweiten Kassette gesichert; das von 
ihm generierte LANDFRAG. I wird 
hinter GRAFSPR1.BIN gespeichert. 
Notieren Sie sich den Zählwerksstand 
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I—Programm 



BiUll: Das hivestitioiismenü 



BiUI2: Die grafische Übersicht der Besitztümer 


vor dem Abspeichern, denn nach dem 
Durchlaufen sämtlicher Ereignisse wer¬ 
den diese neu geladen! Starten Sie nun 
das Spiel mit run-Landgraf.bas Viel 
Spaß! 

Haben Sie nun Landgraf eine Weile ge¬ 
spielt? Falls Ihnen die immer wieder¬ 
kehrenden gleichen Ereignisse langwei¬ 
lig geworden sind, lesen Sie jetzt weiter. 
Mit Hilfe des Programms EREIG¬ 
NIS.BAS können Sie eigene Ereignisse 
entwickeln. Also lassen Sie der Phanta¬ 
sie ihren Lauf. 

Die Ereignisdateien werden in fortlau¬ 
fender Numerierung - LAND- 
FR AG.nun (nnn=Nummer) - benannt 
und auf dem Datenträger abgelegt. 

Nach dem Start von LANDGRAF wer¬ 
den die beigegebenen zwanzig Ereig¬ 
nisse aus LANDFRAG. 1 nachgeladen. 
Sind diese nun alle angezeigt worden, 
lädt LANDGRAF die neuen, von Ihnen 
erzeugten LANDFRAG.nnn-Dateien 
nach. Sind keine weiteren (oder nur die 
ursprünglichen) Dateien vorhanden, be¬ 
ginnt LANDGRAF wieder mit LAND¬ 
FRAG. 1 

Wollen Sie LANDGRAF erweitern, la¬ 
den Sie EREIGNIS.BAS ein. In Zeile 
30 tragen Sie den Namen der Datei ein 
(30 ta=" landfrag.2") . Nun legen Sie 
im DATA-Block ab Zeile 10000 zwan¬ 
zig Ereignisse ab. Hierzu besitzt 
LANDGRAF eine eigene Sprache. Hier 
ein Beispiel: 

10000 DATA "EINES IHRER DOERFER 
BRACH IM STURM 
ZUSAMMEN",2,3,1,0 

Dabei bedeuten in Reihenfolge der 
DATA-Zeile: 

- Text für den Spieler 


- Befehlsnummer (Operation zur Ver¬ 
änderung) 

- Objekt variable (Was soll verändert 
werden?) 

- Rechenwert (Betrag der Änderung) 

- Sofort ausführen oder Bestätigung 
einholen? 

Befehlsnummern: 

0 = NOP 

2 = SUB (Subtrahieren) 
l = ADD (Addieren) 

3 = Multiplizieren (und Dividieren!) 

Objektvariablen: 

0 = Wald 

5 = Feld 

1 = Burg 

6 = Soldat 

2 = Mine 

7 = Geld 

3 = Dorf 

8 = Holz 

4 = Geschütz 

9 = Weizen 
10 = Erz 

Rechenwert: kann sowohl INTEGER 
als auch REAL sein 

Bestätigung: 

0 = Aktion sofort durchführen 

1 = den Spieler um Ja/Nein-Bestätigung 

bitten 

Dieses Beispiel bedeutet also übersetzt: 

- Text 

- SUB 3,1 (Dörfer = Dörfer-1) 

- Aktion sofort ausführen 

Natürlich fängt LANDGRAF sämtliche 
Ereignisse ab, die unmöglich wären 
(wie zum Beispiel: Hat der Spieler kein 
Dorf, kann auch keins zerstört werden). 


Ein weiteres Beispiel: 

- "DIE HAELFTE IHRES WEIZENS 
WURDE VON RATTEN GEFRES¬ 
SEN" 

- MUL 9,0.5 (=Division durch 2) 

- KEINE BESTÄTIGUNG 

Als Befehlszeile würde das so aussehen: 

DATA "DIE HAELFTE IHRES WEIZENS 
WURDE VON RATTEN GEFRES¬ 
SEN", 3, 9,0.5,0 

So generiert man also jeweils zwanzig 
Ereignisse für eine Datei. 

Haben Sie alle Ereignisse eingegeben, 
legen Sie Ihre Spieldiskette ein und star¬ 
ten Sie EREIGNIS, welches nun 
LANDFRAG.2 generiert. Die Texte 
werden von EREIGNIS codiert, so daß 
ein neugieriger Spieler sich nicht so 
leicht über Ereignisse informieren kann. 

Ist LANDFRAG.2 auf Ihrer Spieldis¬ 
kette abgespeichert, setzen Sie den 
Rechner mit <CTRL>-<SHIFT>- 
<ESC> zurück und laden LAND- 
GRAF.BAS. 

Editieren und ändern Sie nun bitte noch 
die aufgeführten Zeilen. 

610 IF ifrag>2 then ifrag=l 

(2 - Anzahl der LANDFRAG- 
Dateien . . .) ]!] 

620 ON ifrag GOSUB 

690,691(, . . -) 

690 OPENIN "LANDFRAG.1":RETURN 

691 OPENIN "LANDFRAG.2":RETURN 

Nun speichern Sie LANDGRAF wieder 
ab. Viel Spaß beim Spielen von Land¬ 
graf mit Ihren eigenen Ereigniserweite¬ 
rungen. 

(Carsten Dost/jg) 
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für 464-664-6128 



100 REM **************** 


110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 

175 REM 

176 REM 

177 REM 


LANDGRAF 
Version: 3.0 
Stand vom: 
06.04.91 


ipl 


[1029] 

[1330] 

[1551] 

[904] 

[ 888 ] 

[ 403] 

[663] 

[587] 

[421] 

[1228] 

[628] 

[1029] 

[824] 

[2395] 

[3368] 

[3223] 

[1093] 

[3780] 

[982] 

[117] 

[1544] 

[117] 

[1560] 

[ 1021 ] 

[3752] 

[884] 

[ 1012 ] 

[ 220 ] 
[3777] 

[846] 

[2675] 

[1844] 

[2633] 
[5284] 

[838] 

[4063] 


(C)Feb.90 by * 

Carsten Dost * 

& * 

PC Inter- * 

national * 

180 REM **************** 

200 GOSUB 8000 

210 DEFINT i , a, x, y:DEFSTR t:DEFREAL r 
220 MODE 2:INK 0,0:BORDER 0:INK 1,23 
230 INPUT"Wieviele Mitspieler (max.4)";i 
ay 

240 IF iplay<l OR iplay>4 THEN 230 
250 FOR ix=l TO iplay:PRINT"Name Spieler " 

;ix;:INPUT tna(ix) 

260 NEXT:GOSUB 700:CLS:GOTO 1000 
270 ' 

280 'Hilfsroutinen 
290 ' 

300 'zentr. Text 
310 LOCATE 1,iy 

320 LOCATE (78-LEN(t))/2,VPOS(#0):PRINT t: 

RETURN 

330 'zent.Txt & wkey 
340 GOSUB 320 
350 'wkey 

360 WHILE INKEYS<>"":WEND:WHILE INKEY$="": 

WEND:RETURN 
370 'Beep 

380 SOUND 7,ia1,5,5:RETURN 
390 'Bild zeichnen 

400 MODE 0:FOR iy=0 TO 11:FOR ix=0 TO 12 
410 ax=ix*6:ay=iy*2:IF f%(ix,iy)=0 THEN 43 
0 ELSE sn=f%(ix,iy) MOD 10 
420 GOSUB 8290 

430 IF ix>0 THEN IF (f%(ix,iy))\10<>(f%(ix 
-l,iy)\10) THEN PLOT ix*48,399-iy*32:DRAWR 
0,-31,f%(ix,iy)\10+l 
440 NEXT:NEXT:RETURN 
450 'Spielstand sichern 
460 OPENOUT"landgraf.dat" 

470 PRINT#9,iplay 

480 FOR ix=l TO iplay:PRINT#9,tna(ix),ilan 
d(ix),ital(ix):NEXT 

490 FOR ix=l TO 6:FOR iy=l TO iplay:PRINT# 

9,iwa(iy,ix):NEXT iy,ix 

500 PRINT#9,ijahr:FOR ix=0 TO 12:FOR iy=0 
TO 11:PRINT#9,f%(ix,iy):NEXT:NEXT:CLOSEOUT 
:RETURN 

510 'Spielstand laden 
520 OPENIN"landgraf.dat" 

530 INPUT#9,iplay 

540 FOR ix=l TO iplay:INPUT#9,tna(ix),ilan 
d(ix),ital(ix):NEXT 

550 FOR ix=l TO 6:FOR iy=l TO iplay:INPUT# 

9 , iwa (iy, ix) : NEXT iy,ix 

560 INPUT#9,ijahrs:FOR ix=0 TO 12:FOR iy=0 
TO 11:INPUT#9,f%(ix,iy):NEXT:NEXT:CLOSEIN 
:RETURN 

570 'Einweisung 

580 CLS:RESTORE 5040:FOR ix=l TO 19:READ t 
:GOSUB 320:NEXT 
590 GOSUB 360:RETURN 
600 'Ereignissdatei lesen 
610 IF ifrag>l THEN ifrag=l 
620 ON ifrag GOSUB 690 
630 FOR ix=0 TO 19 

640 INPUT #9,tfr(ix):INPUT #9,iakt(ix):INP 
UT #9,iwas(ix) :INPUT #9,rwie(ix):INPUT #9, 
iif(ix) 

650 NEXT ix 
660 CLOSEIN 

670 ifrag=ifrag+1:izfr=20 
680 RETURN 

690 OPENIN "landfrag.1":RETURN 
700 INPUT"Neuer Alarmton (derzeit 200)";ia 
1:IF ial=0 THEN ial=200 
710 INPUT"Neue Schreibfarbe (derzeit 23)"; [50811 
ifa:IF ifa=0 THEN ifa=23 


[1435] 

[1115] 

[2251] 

[1295] 

[3673] 

[2867] 

[4768] 


[ 1001 ] 

[1549] 

[1046] 

[2329] 

[3101] 

[6750] 


[1723] 

[3273] 

[1892] 

[850] 

[1689] 

[1004] 

[500] 

[5877] 


[438] 

[752 ] 

[1312] 

[555] 

[2510] 

[4494] 


720 INK 1,ifa:RETURN 
730 'zug korrekt? 

740 xs=MAX(0,xx-1):xe=MIN(12,xx+1):ys=MAX( 
0,yy-l):ye=MIN(11,yy+l) 


üsting 1 LANDGRAF BAS 


[1582] 

[ 866 ] 

[5024] 


750 izf1=0 

760 FOR y=ys TO ye:FOR x=xs TO xe 

770 IF x=xx AND y=yy THEN 790 

780 IF f%(x,y)\10=ispiel THEN izfl=-l:GOT 

O 800 

790 NEXT:NEXT 
800 RETURN 
970 ' 

980 'Progranunstart 
990 ' 

1000 MODE 2:GOSUB 7000 

1010 DIM tw(6),tg(3),iwp(6),iwa(iplay,6),t 
k(5),ih(iplay,3),tgr(iplay),iland(iplay),i 
tal(iplay),tfr(l9),iakt(19),iwas(19),rwie( 
19),iif(19),f%(12,11),augr(11) 

1020 ifrag=l:GOSUB 610 

1030 f%(0,0)=ll:f%(l,0)=14:f%(2,0)=10:f%(0 
,l)=13:f%(l,l)=10:IF iplay=l THEN 1070 
1040 f%(12,0)=21:f%(ll,0)=24:f%(10,0)=20:f 
%(12,l)=23:f%(ll,l)=20:IF iplay=2 THEN 107 

1050 f%(0,ll)=31:f%(l,ll)=34:f%(2,ll)=30:f 
%(0,10)=33:f%(l,10)=30:IF iplay=3 THEN 107 

1060 f%(12,ll)=41:f%(ll,ll)=44:f%(10,ll)=4 

0:f%(12,10)=43:f%(ll,10)=40 

1070 RESTORE:FOR ix=l TO 6:READ tw(ix),iwp 

(ix),iwap:FOR iy=l TO iplay:iwa(iy,ix)=iwa 

p:iland(iy)=5:ital(iy)=300:ipunkt(ix)= 0 :tp 

un(ix)="":NEXT iy,ix 

1080 FOR ix=l TO 3:READ tg(ix):NEXT 

1090 FOR ix=l TO 5:READ tk(ix),rkl(ix):NEX 

T:FOR ix=l TO iplay:READ tgr(ix):NEXT 

1100 ijahrs=1352 

1110 iy=5:t="Wollen Sie die Einweisung les 
en (J)?":GOSUB 310 

1120 i$=INKEY$:IF i$=»" THEN 1120 ELSE IF 
UPPERS(i$)<>"J" THEN 1140 
1130 GOSUB 580 

1140 t="Wollen Sie eine alte Partie weiter 
spielen (J)?":GOSUB 320 
1150 i$=INKEY$:IF i$="" THEN 1150 
1160 IF UPPERS(i$)="J" THEN GOSUB 510 
1170 ' 

1180 'Spielschleife 
1190 ' 

1200 FOR ijahr=ijahrs TO 1400 
1210 ikli=RND*4+l:FOR ispiel=l TO iplay:iv 
=8:CLS 1 

1220 t="Grafschaft "+tgr(ispiel)+" im Jahr 
e des Herrn"+STRS(ijahr) .-GOSUB 310:PRINT:t 
- Das Klima ist "+tk(ikli):GOSUB 320:PRINT 

GOSUB S 34 o rrSCht Ihr ° Gnaden " + tna(ispiel): 

1290 '+++ Investitionsmenue 
1300 CLS 

1310 iy=2:t="Investitionsmenue "+tgr(ispie 
1):GOSUB 320 ^ 

1320 FOR ix=l TO 6:ipy=2+(2*ix):LOCATE 11, 
ipy:PRINT tw(ix):LOCATE 26,ipy:PRINT"fuer 
;:PRINT US ING"####";iwp(ix);:PRINT" Taler 
. :LOCATE 56,ipy:PRINT"Sie haben:":LOCATE 
66,ipy:PRINT CHR$(24);:PRINT USING"###";iw 
a(ispiel,ix);:PRINT CHR$(24) 

1330 NEXT 

1340 LOCATE 17,16:PRINT"Waelder ";:iwald=i 
land(ispiel)-iwa(ispiel, 1 )-iwa(ispiel, 2 )-i 
wa(ispiel,3)-iwa(ispiel,5):PRINT Iwald 
1350 LOCATE 50,16:PRINT"Taler":LOCATE 57,1 
6:PRINT USING"######»,•ital(ispiel):t=»Zum 
Kauf den entsprechenden Anfangsbuchstaben. 

..W - Weiter":iy=18:GOSUB 310 
1360 t=UPPERS(INKEYS):IF t="» THEN 1360 
1370 i=INSTR("BMDGFSW",t):IF i=0 THEN 1360 
1380 IF i=7 THEN 1500 

1390 IF ital(ispiel)<iwp(i) THEN GOSUB 380 
:GOTO 1360 ELSE IF (i=l OR i=2 OR i=3 OR i 
=5) AND iwald=0 THEN GOSUB 380:GOTO 1360 
1400 IF i=6 AND iwa(ispiel,6)+l>iwa(ispiel 
,5)*20 THEN GOSUB 380:GOTO 1360 
1410 IF i=6 AND iwa(ispiel,6)+l>iwa(ispiel 
,3)*50 THEN GOSUB 380:GOTO 1360 

1 420 iwa(ispiel,i)=iwa(ispiel,i)+i:ital(is 

piel)=ital(ispiel)-iwp(i):LOCATE 57,16:PRI 
NT USING"######";ital(ispiel):LOCATE 66,2+ 
2 * 1 :PRINT CHR$(24);:PRINT USING"###";iwa(i 
spiel, i) ; 

1430 PRINT CHR$(24):IF (i=l OR i=2 OR i=3 
OR i=5) THEN LOCATE 25,16:iwald=iwald-l:PR 
INT iwald:GOSUB 400:LOCATE 1,25:PRINT"Bitt 
e positionieren"; ELSE GOTO 1480 
1440 xx=0:yy=0:sn=5:GOSUB 8110:ix=xx/6:iy= 
yy/2: IF f%(ix,iy)oispiel*10 THEN GOSUB 38 
0:GOTO 1440 

Üsling 1 LANDGRAF BAS 


[208] 

[1477] 

[2097] 

[2921] 

[ 1022 ] 

[555] 

[117] 

[1725] 

[117] 

[1303] 

[6179] 


[1324] 

[3037] 

[4765] 

[3964] 

[2885] 

[9862] 


[781] 

[2466] 

[528] 

[4461] 

[2164] 

[960] 

[4404] 

[1458] 

[2081] 

[117] 

[498] 

[117] 

[1574] 

[3975] 

[8833] 


[1346] 

[91] 

[4535] 

[15411] 


[350] 

[6672] 


[9917] 


[1769] 

[2775] 

[ 1022 ] 

[8378] 


[2692] 

[4449] 

[10434] 

[11393] 

[5552] 
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1450 IF i=5 THEN i=4 

1460 f%(ix,iy)=ispiel*10+i:ax=xx:ay=yy:sn= 
i:GOSUB 8290 . % . 

1470 LOCATE 1,25:PRINT"Eine beliebige Tast 
e";:GOSUB 360:GOSUB 7000:GOTO 1310 
1480 GOTO 1360 

1490 '+++ Gebietserweiterung 

1500 CLS:iy=2:t="Gebietserweiterungen":GOS 

UB 310 „ 

1510 PRINT:PRINT:PRINT:t=" . ..A fuer Angnf 
f...W fuer Weiter...":GOSUB 320 
1520 ti="":ti=UPPER$(INKEY$):IF ti="" THEN 
1520 

1530 IF ti="A" THEN 1560 
1540 IF ti="W" THEN 2200 
1550 GOSUB 380:GOTO 1520 

1560 GOSUB 400:LOCATE 3,25:PRINT"Ziel anwa 
ehlen"; 

1570 xx=0:yy=0:sn=5:GOSUB 8110 

1580 xx=xx/6:yy=yy/2:lF f%(xx,yy)\i0=ispie 

1 THEN GOSUB 380:GOTO 1570 

1590 GOSUB 740:IF izfl=0 THEN GOSUB 380:GO 
TO 1570 

1600 GOSUB 7000 

1610 WHILE INKEY$<>"":WEND 

1620 igeg=f%(xx,yy)\lO:IF igeg=0 THEN 1890 
1630 '*** bei Mitspielern 

1640 CLS:iy=2:t="Eroberungen bei "+tna(ige 
g):GOSUB 310:PRINT 

1650 PRINT:PRINT:t="Sie haben"+STRS(iwa(is 
piel,6))+" Soldaten.":GOSUB 320 
1660 IF iwa(ispiel,6)=0 THEN GOSUB 380:ifl 
d=3 :GOTO 2110 

1670 PRINT:INPUT"Wieviele in die Schlacht 
schicken";iws:IF iws>iwa(ispiel,6) THEN GO 
SUB 380:LOCATE 1,VPOS(#0)-2:GOTO 1670 
1680 IF iws=0 THEN 1580 

1690 PRINT:PRINT:PRINT:t="Sie haben"+STR$( 
iv/a(ispiel,4)) + " Geschuetze. ":GOSUB 320 
1700 IF iwa(ispiel,4)=0 THEN iwg=0:GOTO 17 
20 

1710 PRINT:INPUT"Wieviele in die Schlacht 
schicken";iwg:IF iwg>iwa(ispiel,4) THEN GO 
SUB 380:LOCATE 1,VPOS(80)-2:GOTO 1970 
1720 PRINT: PRINT-.PRINT 

1730 rkam=rkl(ikli)*iws*2+iwg*30+RND*8: igs 
=iwa(igeg,6):igg=iwa(igeg,4) 

1740 rgka=rkl(ikli)*igs*2+(9*iwa(igeg,1)+5 
)*igg*rk(ikli) . 

1750 t="Ihre Maenner treffen auf"+STR$(igs 
) + " Gegner mit"+STR$(igg)+" Geschuetzen un 
d"+STR$(iwa(igeg,1)) + " Burgen.":GOSUB 320 
1760 IF rkam>rgka THEN 1800 
1770 IF igsciws THEN rf=rgka*2/rkam:GOTO 1 
820 

1780 PRINT:t="Entsetzlich ! Sie haben verl 

oren !":GOSUB 320 

1790 rf=rkam/rgka:GOTO 1820 

1800 rf=rgka/rkam:iland(ispiel)=iland(ispi 

el)+l:iland(igeg)=iland(igeg)-l 

1810 f%(xx,yy)=f%(xx,yy) MOD l0+ispiel*10 

1820 ins=MAX(iws*RND*i.3-igs*rf+iwa(igeg,1 

)*2,iws*rf*RND):ing=MAX( iv/q*RND*l.2-igg*rf 

,iv/g*rf) :ins=MIN(ins,iws) :ing=MIN(ing,iv/g) 

: iwa (ispiel, 6) =MAX (iv/a (ispiel, 6) -iws+ins, 0 

1830 ings=MAX(igs-iws*rf*iwa(igeg,l),igs*r 
f*RND*iwg): iggs=MAX(igg-iv/g*rf, igg*rf *iwa( 
igeg,1)):ings=MIN(ings,igs):iggs=MIN(iggs, 
igg):iwa(igeg,6)=MAX(iwa(igeg,6)-igs+ings, 
0) 

1840 t="Beim Feind bleiben"+STR$(ings)+" M 
ann mit"+STR$(iggs)+" Geschuetzen zurueck. 
":GOSUB 340 

1850 iwa(igeg,4)=iwa(igeg,4)-igg+iggs 
1860 PRINT:iwa(ispiel,4)=iwa(ispiel,4)-lwg 
+ing:t="Es kehren"+STRS(ins)+" Mann mit"+S 
TR$(ing)+" Geschuetzen zurueck.":GOSUB 340 
1870 GOTO 2110 
1880 '*** bei Barbaren 

1890 CLS:iy=2:t="Eroberungen bei den Barba 

ren":GOSUB 310 

1900 alla=iland(ispiel) 

1910 PRINT:PRINT:t="Sie haben"+STR$(iwa (is 
piel,6)) + " Soldaten. "-.GOSUB 320 
1920 IF iwa(ispiel,6)=0 THEN ifld=6:GOSUB 
380:GOTO 2110 

1930 PRINT:INPUT"Wieviele in die Schlacht 
schicken";iws:IF iws>iwa(ispiel,6) THEN GO 
SUB 380:LOCATE 1,VPOS(#0)-2:GOTO 1930 
1940 IF iws=0 THEN 2200 

1950 PRINT:PRINT:PRINT:t="Sie haben"+STRS( 
iwa(ispiel,4))+" Geschuetze.":GOSUB 320 
1960 IF iwa(ispiel,4)=0 THEN iwg=0:GOTO 19 
80 

Listing 1 LANDGRAF BAS 


[1244] 

[5099] 

[3966] 

[411] 

[1145] 

[3857] 

[5330] 

[3566] 

[1313] 

[919] 

[1542] 

[3214] 

[1605] 

[1275] 

[2107] 

[867] 
[1786] 
[2861] 
[2125] 
[4623] 

[4329] 

[3683] 

[7091] 

[750] 

[6670] 

[1893] 

[7541 ] 

[1082] 

[4349] 

[2498] 

[8911] 


[1780] 

[2155] 

[5216] 

[1829] 

[3196] 

[1821] 

[9022] 


[10932] 


[7045 


[2538] 

[9324] 


[ 357] 

[2272] 

[4110] 

[1175] 

[4329] 

[2775] 

[7159] 

[722] 

[6670] 

[1841] 


1970 PRINT:INPUT"Wieviele in die Schlacht [7541] 
schicken";iwg:IF iwg>iwa(ispiel,4) THEN GO 
SUB 380:LOCATE 1,VPOS(#0)-2:GOTO 1970 
1980 PRINT:PRINT:PRINT 

1990 rkam=rkl(ikli)*iws+iwg*15+RND*8:igs=i 
ws*RND*1.5+(iws/5)+(iws/10)*RND*iwg:igg=0 
2000 rgka=rkl(ikli)*igs+l5*igg*rk(ikli) 

2010 t="Ihre Maenner treffen auf"+STR$(igs 
)+" Gegner.":GOSUB 320 
2020 IF rkam>rgka THEN 2060 
2030 IF igs<iws THEN 2060 
2040 t="Entsetzlich ! Sie haben verloren ! 

":GOSUB 320 

2050 rf=rkam/rgka:GOTO 2070 
2060 rf=rgka/rkam:iland(ispiel)=iland(ispi 

2070^ins=MAX(iws*RND*l.3-igs*rf,iws*rf*RND 
):ing=MAX(iwg*RND*1.2-igg*rf,iwg*rf):ins=M 
IN (ins, iws) : ing=MIN(ing, iwg): iv/a (ispiel, 6) 
=MAX(0,iwa(ispiel,6)-iws+ins) 

2080 iwa (ispiel, 4) = iv/a(ispiel, 4) -lv/g+mg: t 

="Es kehren"+STR$(ins)+" Mann mit"+STR$(in 
g)+" Geschuetzen zurueck.":GOSUB 340 
2090 IF ins=0 AND rkam>rgka THEN iland(isp 
iel)=iland(ispiel)-1:t="Entsetzlich ! Sie 
haben verloren !":GOSUB 340 
2100 IF alla<iland(ispiel) THEN f%(xx,yy)= 
ispiel*10 

2110 ifld=ifld+1:IF ifld<3 THEN 1500 
2190 '+++ Handelsmenue 

2200 ifld=0:CLS:PRINT:t="Handelsmenue":GOS 
UB 320:PRINT:PRINT:PRINT 

2210 IF iwald>0 THEN ih(ispiel,1)=ih(ispie 
1,1) + (iwald*l.8+iwa(ispiel,3)* 1.5)*5*rkl(l 
kli)+RND*10 . . , 

2220 ih(ispiel,2)=ih(ispiel,2)+(iwa(ispiel 
,5)*(3.5-ikli/2)+iwa(ispiel,3)*1.5)*5*rkl( 
ikli)+RND*10-(iwa(ispiel,6)\10) _ 

2230 IF iwa(ispiel,2)>0 THEN ih(ispiel,3)= 
ih(ispiel,3)+(iwa(ispiel, 2 )*0.8+iwa(ispiel 
,3)*0.9)* 5 + RND*8+iwa(ispiel,6)*RND*0.9 
2240 t="Dieses "+tk(ikli)+"e Jahr brachte 
Ihnen:":GOSUB 320 

2250 FOR ix=l TO 3 : ihp(ix) =.ih ( ispiel, ix)/( 

3*iwa(ispiel,3))+ix*5:NEXT:ihp(3)=ihp(3)*1 
.5:ihp(2)=ihp(2)+5*ikli/2 

2260 FOR ix=l TO 3:IF ihp(ix)>40 THEN lhp( 
ix)=40 
2270 NEXT 

2280 FOR ix=l TO 3:LOCATE 12,ix+8:PRINT US 
ING"####";ih(ispiel,ix);:PRINT" Kubikschri 
tte "+tg(ix):LOCATE 39,ix+8:PRINT"zum Prei 
s von";:PRINT USlNG"####";ihp(ix);:PRINT" 

Talern.":NEXT 

2290 LOCATE 33,14:PRINT USING"#####";ltal( 
ispiel);:PRINT" Taler." 

2300 t="Zura Verkauf den entsprechenden Anf 
angsbuchstaben...F - Weiter":iy=l8:GOSUB 3 
io 

2310 t=UPPER$(INKEYS):IF t="" THEN 2310 
2320 i=INSTR("HWEF",t):IF i=4 THEN 2350 EL 
SE IF i=0 THEN GOSUB 380:GOTO 2310 
2330 IF ih(ispiel,i)<iwa(ispiel,3)*(7-i)+i 
wa(ispiel,1)*(5-i) THEN GOSUB 380:GOTO 231 

0 ... 

2340 ih(ispiel,i)=ih(ispiel,i)-l:ital(ispi 
el)=ital(ispiel)+ihp(i):LOCATE 12,i+8:PRIN 
T USING"####";ih(ispiel,i):GOTO 2290 
2350 FOR ix=l TO 3:ih(ispiel,ix)=MAX(0,ih( 
ispiel,ix)-iwa(ispiel,3)*(7-ix)+iwa(ispiel 
,1)*(5-ix)):NEXT 
2390 '+++ Ereignissmenue 

2400 CLS:t="??? Ereignisse ???":iy=4:GOSUB 
310:PRINT:PRINT:PRINT 
2410 rerg=RND(1) *0.4961:IF rerg<0.398 THEN 
2830 

2420 ierg=INT(RND*20):IF tfr(ierg)="" THEN 
2420 

2430 IF iwas(ierg)>7 THEN IF ih(iwas(lerg) 

-7,ispiel)=0 THEN 2420 

2440 IF iwas (ierg )=0 THEN iv/a (ispiel, 0 )=iw 
ald ELSE IF iwas(ierg)=7 THEN 2460 
2450 IF iwa(ispiel,iwas(ierg))=0 THEN 2420 
2460 t=tfr(ierg):FOR ix=l TO LEN(t):w=ASC( 
MID$(t,ix,l)):w=w-5:IF w<58 THEN 2490 
2470 IF w<65 THEN w=w+26 
2480 IF W=58 THEN W=32 

2490 MID$(t,ix,1)=CHR$(w):NEXT:GOSUB 320 
2500 IF iif(ierg) THEN t="(J)?":PRINT:PRIN 
T:PRINT:GOSUB 320 

2510 i$="":i$=INKEY$:IF i$="" THEN 2510 EL 
SE IF UPPER$(iS)<>"J" THEN 2840 
2520 IF iakt(ierg)=0 THEN 2840 
2530 IF iwas (ierg) <7 THEN ihilf=iv/a(ispiel 
,iwas(ierg)) 

Listing 1 LANDGRAP BAS 


[1082] 

[3518] 

[1360] 

[6113] 

[1760] 

[433] 

[3716] 

[1645] 

[2605] 

[10520] 


[7517] 

[9076] 

[1396] 

[1161] 

[915] 

[3753] 

[5570] 

[7000] 

[8125] 

[3963] 

[5550] 

[1099] 

[350] 

[8454] 

[2711] 

[7788] 


[1771] 

[3983] 

[5536] 


[5732] 

[7457] 

[1590] 

[3947] 

[2589] 

[2341] 

[1594] 

[3037] 

[1576] 

[4595] 

[1144] 

[1302] 

[2254] 

[1967] 

[4370] 

[790] 
[4044] 
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2540 IF iwas(ierg)=0 THEN ihilf=iwald ELSE 
IF iv/as(ierg) =7 THEN ihilf=ital(ispiel) 
2550 IF iwas(ierg)>7 THEN ihilf=ih(iwas(ie 
rg)-7,ispiel) 

2560 ON lakt(ierg) GOTO 2590,2670,2760 
2570 GOTO 2840 

2580 '*** Besitz vergroessern 
2590 IF iwas(ierg)<6 AND iwas(ierg)<>4 THE 
N iland(ispiel)=iland(ispiel)+rwie(ierg) E 
LSE 2650 

2600 GOSUB 400:LOCATE 1,25:PRINT"Bitte pos 
itionieren"; 

2610 xx=0:yy=0:sn=5:GOSUB 8110:ax=xx/6:ay= 
yy/2:IF f%(ax,ay)>0 THEN GOSUB 380:GOTO 26 
10 

2620 xx=ax:yy=ay:GOSUB 740:IF izfl=0 THEN 
GOSUB 380:GOTO 2610 

2630 f%(ax,ay)=iwas(ierg)+10*ispiel:xx=ax* 
6:yy=ay*2:sn=iwas(ierg):IF sn=5 THEN sn=4 
2640 GOSUB 8290 

2650 ihilf=ihilf+rwie(ierg):GOTO 2780 
2660 '*** Besitz verkleinern 
2670 IF rwie(ierg)>ihilf THEN GOSUB 380:GO 
TO 2420 

2680 ihilf=ihilf-rwie(ierg):IF iwas(ierg)> 
6 OR iwas(ierg)=4 THEN 2740 
2690 iland(ispiel)=iland(ispiel)-rwie(ierg 
):GOSUB 400:LOCATE 1,25:PRINT"Bitte positi 
onieren"; 

2700 xx=0:yy=0:sn=5:GOSUB 8110:ax=xx/6:ay= 
yy/2:xhi=iwas(ierg):IF xhi=5 THEN xhi=4:IF 
f%(ax,ay)<>xhi+ispiel*10 THEN GOSUB 380:G 
OTO 2700 

2710 IF f%(ax,ay)<>xhi+ispiel*10 THEN GOSU 
B 380:GOTO 2700 

2720 f%(ax,ay)=0:xx=ax*6:yy=ay*2:sn=7 
2730 GOSUB 8290 
2740 GOTO 2780 

2750 '*** Besitz multiplizieren 
2760 ihilf=ihilf*rwie(ierg) 

2770 IF iwas(ierg)<6 AND iwas(ierg)<>4 THE 
N iland(ispiel)=iland(ispiel)*rwie(ierg) 
2780 IF ihilfcO THEN ihilf=0 
2790 IF iv/as (ierg)<7 THEN iwa (ispiel, iwas( 
ierg))=ihilf 

2800 IF iwas(ierg)=0 THEN iwald=ihilf ELSE 
IF iwas(ierg)=7 THEN ital(ispiel)=ihilf 
2810 IF iwas (ierg) >7 THEN ih (iv/as (ierg)-7 , 
ispiel)=ihilf 

2820 GOTO 2840 

2830 t="Dieses Jahr verlief ohne besondere 
Ereignisse.:iy=i6:GOSUB 310 
2840 t="<TASTE>":PRINT:PRINT:GOSUB 340:tfr 
(ierg)="":izfr=izfr-1:IF izfr=0 THEN 610 
2990 '+++ Naechster Spieler 
3000 CLS:NEXT ispiel 
3010 '+++ Jahressieger ermitteln 
3020 t="*** Jahresvergleich ***":PRINT:PRI 
NT:PRINT:GOSUB 320 
3030 PRINT:PRINT:PRINT:PRINT 
3040 FOR ix=l TO iplay:index(ix)=iwa(ix,1) 
*5000+iwa(ix,2)*1000+iwa(ix,3)*400+iwa(ix, 
4)*200+iwa(ix,5)*40+iwa(ix,6)*l5:FOR iy=l 
TO 3:index(ix)=index(ix) + iha(iy)*ihp(iy):N 
EXT 

3050 itt=0:FOR irex=iplay TO 1 STEP -1:IF 
index(ix)>ipunkt(irex) THEN itt=itt+l 
3060 NEXT irex:itt=4-itt:FOR irex=4 TO itt 
+1 STEP -1:ipunkt(irex)=ipunkt(irex-l):tpu 
n(irex)=tpun(irex-1):NEXT:ipunkt(itt+1)=in 
dex(ix):tpun(itt+l)=tna(ix) 

3070 NEXT ix 

3080 FOR ix=4 TO (5-iplay) STEP -l:t=tpun( 
ix)+STR$(ipunkt(ix)):GOSUB 320:NEXT 
3090 PRINT:PRINT:PRINT 
3100 '+++ Spiel abspeichern ? 

3110 t="Spiel abspeichern (J)":GOSUB 320 
3120 i$=INKEY$:IF i$="" THEN 3120 
3130 IF UPPERS (i$ ) = I, J" THEN GOSUB 450 
3140 NEXT ijahr 
3150 '+ + + PROGRAMMENDE + + + 

3160 MODE 2:t="*** Bis demnaechst dann 1 * 
**":iy=12:GOSUB 310 
3170 GOTO 3170 
4950 ' 
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4960 

4970 

4980 

4990 


ZUSATZROUTINEN 


Daten 

5000 DATA Burgen,5000,1,Minen,1000,0,Doerf 
er,400,1,Geschuetze,200,0,Felder,40,1,Sold 
aten,15,5 

5010 DATA Holz,Weizen,Erz 


usting 1 LANDGRAF BAS 


[447] 

[117] 

[117] 

[933] 

[117] 

[ 442] 
[4931] 


[1862] 


5020 DATA heiss,0.6,praechtig,1.2,feucht, 0 
.7,normal,0.9,streng,0.3 

5030 DATA Gruenwald,Feuchtaue,Steintal ,Mev 
bürg 

5040 DATA Willkommen im tiefsten Mittelalt 
er !,,Als einfacher Ritter werden Sie mit 
einem kleinen Lehen versehen,Nutzen Sie di 
e Ihnen gegebene Zeit zur Erweiterung Ihre 
r Macht 

5050 DATA ,Von Barbaren umzingelt in einer 
wilden Waldgegend haben Sie fuer Nahrung, 
Sicherheit und Erze zu sorgen.,,Bedenken S 
le jedoch,- eine kleine Grafschaft kann ke 
ine grosse Armee ernaehren!, - auch Sie be 
noetigen Rohstoffe 

5060 DATA - der Nachbar will ebenfalls gew 
innen !,,,Im Grafikteil wird mittels Curso 
rkreuz gesteuert - COPY bestaetigt,Meist w 
artet das Programm auf Tastendruck,,,Anson 
sten wuensche ich Ihnen viel Spass ! 

5990 'Burg zeichnen 

6000 DRAWR 15*8,0:DRAWR 0,24:DRAWR -16,0:D 
RAWR 0,-24:MOVER 0,20:DRAWR -11*8,0:MOVER 
0,-20:DRAWR 0,24:DRAWR -16,0:DRAWR 0,-24 
6010 MOVER 54,0:DRAWR 0,10:DRAWR 6,5:DRAWR 
6,-5:DRAWR 0,-10 

6020 MOVE 0,0:FOR ix=l TO 32 STEP 4:PLOT i 
X+20,8:PLOT ix+20,16:PLOT ix+70,8:PLOT ix+ 
70,16:NEXT 

6030 MOVE 50,20:DRAWR 0,20:DRAWR 10,8:DRAW 
R 10,-8:DRAWR 0,-20:MOVER 0,20:DRAWR -20,0 
6040 FOR iy=18 TO 2 STEP -4:PLOT 8,iy:PLOT 
112,iy:PLOT 55,iy+21:PLOT 65,iy+21:NEXT 
6050 RETURN 

6990 'Mode 2 - Bildschirm 
7000 MODE 2:INK 0,0:INK l,ifa:PEN 1:PAPER 
0 

7010 PRINT CHR$(150);STRINGS(78,CHR$(154)) 

;CHR$(156):FOR iy=2 TO 24:LOCATE l,iy:PRIN 
T CHR$(149):LOCATE 80,iy:PRINT CHR$(149);: 
NEXT:LOCATE 1,25:PRINT CHR$(147);STRING$(7 
8,CHR$(154));CHR$(153); 

7020 LOCATE 1,5:PRINT CHR$(151);STRING$ ( 78 
,CHR$(154));CHR$(157); 

7030 WINDOW ff 1,2,79,2,4: WINDOW 2,79,6,24 
7040 WINDOW SWAP 0,l:t="L A N D G R A F":G 
OSUB 320:t="Copyright Februar 1990 by Cars 
ten Dost":GOSUB 320:t="Version 3.0":GOSUB 
320:WINDOW SWAP 0,1 

7050 ORIGIN 17,336:GOSUB 6000:ORIGIN 488,3 

36:GOTO 6000 

7990 'Initialisierung 

8000 MEMORY &94FF 

8010 INK 0,0:BORDER 0:INK 1,6:INK 2,2:INK 

3,3:INK 4,25:INK 5,15 

8020 DEF FNba(x,y)=49152+y*80+x 

8030 INK 6,24:INK 7,9:INK 8,13:INK 10,11:1 

NK 11,18:INK 9,6 

8040 IF PEEK(&A100)<>6 THEN LOAD"grafspri . 
bin",&9500:GOSUB 8990 

8050 sprite=&AHE:ableg=&A12D:hole=&A139: s 

pradr=&9500 

8060 RETURN 

8090 'MOVE sprite by Cursor 
8100 'sn=spntenr xx,yy=startpos 
8110 WHILE INKEY$<>"":WEND 
8120 ax=xx:ay=yy:GOSUB 8180 
8130 IF NOT INKEY(8) AND XX>0 THEN xx=XX-6 
ELSE IF NOT INKEY(1) AND xx<70 THEN xx=xx 
+ 6 

8140 IF NOT INKEY(0) AND yy>0 THEN yy=yy-2 
^ELSE IF NOT INKEY(2) AND yy<22 THEN yy=yy 

8150 IF NOT INKEY(9) THEN fire=-l:GOSUB 82 
00:RETURN 

8160 IF ax=xx AND ay=yy THEN 8130 
8170 GOSUB 8180:GOTO 8120 
8180 'Sprite-Draw XOR 
8190 'ax,ay = Pos sn=SprNr 
0200 POKE &A109,&AE 

8210 ba=FNba(ax,ay):CALL Sprite,spradr+sn* 
96, ba 

8220 RETURN 

8290 'Sprite-Draw FORCE 
8300 'ax,ay = Pos sn=SprNr 
8310 POKE &A109,&0 

8320 ba=FNba(ax,ay):CALL sprite,spradr+sn* 
96 ,ba 

8330 RETURN 
8990 'MC-ROUTINEN 

9000 RESTORE 9020:FOR adr=&A100 TO &A12C:R 
EAD a$:POKE adr,VAL("&"+a$):NEXT 
9010 RETURN 


[4344] 

[2780] 

[12564] 

[15157] 

[12132] 


[1335] 

[7364] 


[4527] 

[3236] 

[4168] 

[3865] 

[555] 

[1766] 

[4212] 

[11401] 


[4228] 

[2584] 

[8498] 


[2414] 

[1300] 

[782] 

[2721] 

[959] 

[1776] 

[3455] 

[3430] 

[555] 

[1430] 

[1636] 

[1786] 

[1144] 

[2873] 


[5171] 


[2492] 

[836] 

[1570] 

[463] 

[ 452 ] 
[642] 
[3286] 

[555] 

[723] 

[452] 

[680] 

[3286] 

[555] 

[1548] 

[4355] 
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Lsting 1 LANDGRAF.BAS 


6/7’91 PC 11 

























9020 DATA 06,02,C5,06,08,C5,06,06 
9030 DATA 1A,AE,77,23,13,10,F9,01 
9040 DATA FA , 07,09 , CI , 10 , EF , 01,50 
9050 DATA CO,09,CI,10,E5,C9,DD,6E 
9060 DATA 00,DD,66,01,DD,5E,02,DD 
9070 DATA 56,03,C3,00,Al 


[999 ] 

[1602] 

[647] 

[949] 

[1844] 

[795] 


1 


860 

DATA 

30,30,20 

870 

DATA 

04,20,00 

880 

DATA 

00,10,20 

890 

DATA 

20,00,04 

900 

DATA 

04,20,00 

910 

DATA 

30,30,30 


,04,OC,18,20,00, 
, 10,20,00,04,20, 
,00,04,20,00,10, 
, 20 , 00 , 10 , 20 , 00 , 
,10,30,30,24,30, 
,30,30,30,30,30, 


200 

[2002] 

120 

[839] 

100 

[1177] 

116 

[1358] 

232 

[1302] 

384 

[1702] 


Listing 1 LANDGRAF BAS 


10 ' DATALADER erzeugt Spritegrafik 
20 adr=&9500:FOR x=0 TO 71 
30 PRINT"ZEILE x*10 + 200; 

FOR y=0 TO 7 

READ a$:POKE x*8+y+adr,VAL("&"+a$) 
sum=sum+VAL("&"+a$) 

NEXT 

READ csum:IF sumocsum THEN PRINT" FEH 


40 

50 

60 

70 

80 

LER 

90 


!":STOP 
PRINT"OK":sum=0 


100 NEXT 

110 FOR z=(x+1)*8 TO 768:POKE adr+z,0:NEXT 
120 SAVE"grafspri",b,&9500,&300 
130 END 

200 DATA 00,00,00,00,00,00,00,00, 


290 DATA 44,88,44,8A,CC,00,44,88, 
300 DATA 44,65,CC,00,44,E4,CF,9E, 
310 DATA CE,8A,CF,CD,65,CF,CF,8A, 
320 DATA 02,02,00,00,02,02,03,02, 
330 DATA 00,00,03,02,03,02,02,02, 
340 DATA 03,02,02,02,03,02,02,02, 
350 DATA 03,02,03,02,03,02,03,03, 
360 DATA 03,03,03,02,02,03,01,01, 
370 DATA 02,02,03,03,03,03,03,02, 
380 DATA 03,03,03,03,03,02,02,03, 
390 DATA 01,01,02,02,03,03,03,03, 
400 DATA 03,02,03,03,46,03,03,02, 
410 DATA 03,03,CC,89,03,02,03,03, 
420 DATA CC,89,03,02,03,03,CC,89, 
430 DATA 03,02,00,00,00,00,00,00, 


730 DATA A0,A0,B4,B4,B4,B4,B4,34, 
740 DATA 50,50,50,50,50,50,78,78, 
750 DATA 78,78,78,78,A0,A0,A0,A0, 
760 DATA A0,A0,B4,B4,B4,B4,B4,B4, 
770 DATA 50,50,50,50,50,50,78,78, 
780 DATA 78,78,78,78,A0,A0,A0,A0, 
790 DATA A0,A0,A0,A0,AO,AO,AO,AO, 
800 DATA 30,30,30,30,30,30,30,30, 


[2787] 

[1265] 

[1586] 

[1175] 

[2199] 

[1393] 

[350] 

[4309] 

[1741] 

[350] 

[2358] 

[1495] 

[HO] 

;879 ] 


504 

[1770] 

1092 

[1240] 

1330 

[1072] 

1922 

[1406] 

2016 

[1583] 

1746 

[1464] 

1564 

[1356] 

1212 

[1202] 

818 

[1488] 

1034 

[1925] 

1409 

[1059] 

13 

[1520] 

14 

[1730] 

18 

[1124] 

21 

[1495] 

18 

[1179] 

21 

[1065] 

22 

[1361] 

18 

[1157] 

89 

[1412] 

358 

[1911] 

693 

[1134] 

5 

[1800] 

412 

[840] 

1122 

[1920] 

1114 

[1663] 

1071 

[1191] 

1290 

[912] 

1330 

[1908] 

1533 

[1336] 

1445 

[731] 

1308 

[1061] 

1328 

[1473] 

1277 

[1188] 

1657 

[2081] 

325 

[1317] 

1Q40 

[2215] 

999 

[1681 ] 

1231 

[847] 

J.176 

[2052] 

1025 

[1306] 

991 

[1666] 

1259 

[1336] 

1721 

[1835] 

202 

[2190] 

174 

[1232] 

144 

[1658] 

720 

[1705] 

1120 

[1619] 

1400 

[1348] 

720 

[1705] 

1120 

[1619] 

1400 

[1348] 

720 

[1705] 

1120 

[1619] 

1400 

[1348] 

720 

[1705] 

1120 

[1619] 

1280 

[1597] 

384 

[1702] 

224 

[1956] 

88 

[1265] 

104 

[1698] 

96 

[ 1627 ] 

184 

[898] 


Listing 2 GRAFSPRI.BAS 


10 DEFINT i:DEFSTR t:DEFREAL r 

20 PRINT"LANDFRAG.BAS generiert jetzt LAND 

FRAG.1 - Ereignissblock auf Datentraeger" 

30 ta="LANDFRAG.1" : 'HIER DATEINAME 

40 RESTORE 10000:OPENOUT ta 

50 FOR iy=l TO 20 

60 READ t,iakt,iwas,rwie,iif 

70 PRINT#9,t:PRINT#9,iakt:PRINT#9,iwas:PRI 

NT#9,rwie:PRINT#9,iif 

80 NEXT:CLOSEOUT 

90 END 

9990 'DATAPART 

10000 DATA "XUJSIJS%XNJ%755%YFQJW%KZJW%JNS 
JS%ITR",2,7,200,-1 

10005 DATA " JNSJX%NMWJVJ%KJQI JW%BZWI J%ATR%B 
NQI%AJWBZJXYJY",2,5,1,0 

10010 DATA "GJN%XHMFSEFWGJNYJS%KFSI%RFS%65 
55%YFQJW",1,7,1000,0 

10015 DATA "IZWHMWJNXJSIJ%MFJSIQJW%EFMQYJS 
% 6 5 5 %YFQJW%BJLJETQQ",1,7,100,0 
10020 DATA "INJ%PNWHMJ%BNQQ%JNS%KJQI%ATS%N 
MSJS",2,5,1,-1 

10025 DATA "65%BNQIJWJW%BTQQJS%XNHM%JZWJS% 
YWZUUJS%FSXHMQNJXXJS",1,6,10,-1 
10030 DATA "INJ%UJXY%WFKKY%JZWJ%MFQGJ%FWRJ 
J%MNSBJL",3,6,0.5,0 

10035 DATA "EZJSIJQSIJ%PNSIJW%GWFSSYJS%JNS 
%ITWK % FG",2,3,1,0 

10040 DATA "ZSJWBFWYJY%GJXZHMY%JZHM%JZJW%Q 
JMSXMJWW3%IFX%PTXYJY%JZHM%7 8>%YFQJW",2,7,2 


[ 1122 ] 

[7110] 

[2176] 

[2591] 

[538] 

[1035] 

[5255] 

[904] 

[ 110 ] 

[617] 

[4541] 

[2634] 

[5405] 

[4419] 

[2698] 

[3681] 

[2475] 

[2861] 

[7224] 


39,0 

10045 DATA "JNSJW%JZWJW%RFJSSJW%XYZJWYEYJ% [3486] 
ATR%MJZGTIJS",2,6,1,0 

10050 DATA "JNS%JWIGJGJS%GWFHMYJ%JNSJ%RNSJ [4052] 
%EZR%JNSXYZWE",2,2,1,0 

10055 DATA "LJGJS%XNJ%IJS%PWJZEWNYYJWS%JNS [4369] 
%LJXHMZJYE%RNY",2,4,1,-1 

10060 DATA "SJMRJS%XNJ%ATS%IJS%GFWGFWJS%:5 [4621] 
%PZGNPXHMWNYY%MTQE%FQX%YWNGZY%FS",1,8,50,- 

10065 DATA "JWQFZGY%NMW%JZWJS%ZSYJWYFSJS1% [3334] 
JZHM%JNSJ%GZWL%EZ%GFZJS",1,1,1,-1 

10070 DATA "JNS%BFQI%BZWIJ%ATS%MZSLWNLJS%Z [6816] 

SYJWYFSJS%ZSJWQFZGY%LJWTIJY",1,5,1,0 

10075 DATA "IJW%PFNXJW%GWFZHMY%JZWJ%FWRJJ3 [6050] 

33IFLJLJS%XJNI%NMW%RFHMYQTX",3,6,0,0 

10080 DATA "JNSJ%JCUQTXNTS%NS%IJW%BFKKJSPF [5673] 

RRJW%EJWXYTJWY%INJ%MFJQKYJ%IJW% LJXHMZJYEJ" 


,3,4,0.5,0 

10085 DATA "NMWJ%GZWL%BFW%XHMQJHMY%LJGFZY1 [6295] 
%IFWZR%XYZJWYEY%XNJ%GJN%JNSJR%XYZWR%EZXFRR 


JS",2,1 ,1,0 

10090 DATA "NS%NMWJR%ITWK%KFSI%RFS%JNSJ%MJ [4081] 
CJ3%XTQQ%RFS%XNJ%AJWGWJSSJS",0,0,0,-1 
10095 DATA "JNS%BFMWXFLJW%XFLY%NMSJS%JNSJ% [6313] 
LWTXXJ%EZPZSKY%ATWMJW",0,0,0,0 


Listing 3 LANDFRAG BAS 


10 DEFINT i:DEFSTR t:DEFREAL r [1122] 

20 PRINT"EREIGNIS VI.0 [C)8.90 by Carsten [2817] 
Dost" 

30 ta="LANDFRAG.2" : 'HIER DATEINAME [1337] 

40 RESTORE 10000:OPENOUT ta [2591] 

50 FOR iy=l TO 20 [538] 

60 READ t,iakt,iwas,rwie,iif [1035] 

70 REM Textcodierung... [1865] 

80 FOR ix=l TO LEN(t):iw=ASC(MID$(t,ix,1)) [2605] 
:iw=iw+5:IF iw>90 THEN iw=iw-26 

90 MID$(t,ix,1)=CHR$(iw):NEXT [1743] 

100 PRINT#9,t:PRINT#9,iakt:PRINT#9,iwas:PR [5255] 
INT#9,rwie:PRINT#9,iif 

110 NEXT:CLOSEOUT: [927] 

120 END [HO] 

9980 'TEXTE BITTE NUR IN GROSSBUCHSTABEN [1976] 
9990 'DATAPART [617] 

10000 DATA "EINES IHRER DOERFER BRACH IM S [3793] 
TURM ZUSAMMEN",2,3,1,0 
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Bonus—i 


Bonusprogramm: 

Einblicke 

Dem Rechner auf die 
Bytes geschaut 

Jeder kennt wohl die kleinen unscheinbaren, aber sehr wirkungsvollen 
Programme, wie beispielsweise den Emulator für den CPC 464. Sie sind im 
oberen Speicherbereich jenseits der HIGHMEM-Grenze angesiedelt. Eine 
Möglichkeit, mit der Sie solche Programme ansehen und auch bearbeiten 
können, ist das hier vorgestellte Bonusprogramm BINKING. 


Hatten Sie auch schon einmal den 
Wunsch nach einem POKE-Befehl, mit 
dem Sie nicht nur einen Wert an eine 
bestimmte Speicherstelle schreiben, 
sondern dem Sie gleich mehrere Werte 
“mitgeben” können? Benötigten Sie ei¬ 
nen POKE-Befehl, der Ihnen ermög¬ 
licht, gleich einen ganzen String ab der 
angegebenen Adresse zu schreiben? 

Oder wäre ein PEEK-Befehl, mit dem 
mehrere Speicherplätze wahlweise in 
ASCII- oder HEX-Form angeschaut 
werden können, die Lösung Ihrer Pro¬ 
bleme? 

Gute Nachricht: Alle obigen Wünsche 
kann das Programm BINKING.BIN er¬ 
füllen und noch einige mehr. Eine der 
großen Stärken von BINKING ist sein 
Disassembler. Dieser kennt auch alle 
bekannten “illegalen” Befehle. Wenn 
der Aufruf einer Betriebssystemroutine 
erfolgt, wird die zutreffende Bezeich¬ 
nung ebenfalls angezeigt. Also kein 
Auswendiglernen mehr von Betriebssy¬ 
stemadressen! 

Der DisassembJer führt ebenso eine Sta¬ 
tistik über die Anzahl der aufgerufenen 


Opcodes wie über die Anzahl der total 
verarbeiteten Zeilen. Näheres lesen Sie 
unter der Befehlsbeschreibung von 
DISASS. 

Komfortabler Disassembler 

BINKING.BIN hilft, andere Binärpro¬ 
gramme zu untersuchen. Es befindet 
sich deshalb in einem Speicherbereich, 
in welchen andere Binärprogramme 
normalerweise nicht geladen werden 
(&4000-&6D59). Laden Sie deshalb 
nach der Initialisierung von BIN¬ 
KING.BIN das gewünschte Binärpro¬ 
gramm mit dem normalen LOAD-Be- 
fehl. 

Um die Erklärungen allgemeinver¬ 
ständlich zu gestalten, werden an dieser 
Stelle folgende Vereinbarungen getrof¬ 
fen: 

String: 

1) Zeichenfolge als Direkteingabe zwi¬ 
schen “Gänsefüßchen” oder 

2) String-Variablenname (zum Beispiel 
a$) oder 

3) String-Variablenname mit Vorgesetz¬ 


tem “Klammeraffen” (zum Beispiel 
@a$). Für CPC-464-Bcsitzer ist, ohne 
Nutzung des Emulators, nur diese Vari¬ 
ante möglich. Bei Variante 2 und 3 ist 
die angegebene Variable mit dem ge¬ 
wünschten Inhalt zu füllen. 

Aktuelles File: Nach Initialisierung ist 
BINKING.BIN die aktuelle Datei. Nach 
Laden einer Binärdatei wird diese als 
aktuelle erklärt. Mit dem Befehl 
ISWITCH kann zwischen beiden umge¬ 
schaltet werden. Der Befehl IRANGE 
zeigt die Daten der aktuellen Datei. 

Anzahl: Zahl zwischen 0 und 255 
Länge: Zahl zwischen 1 und 65535 
Wert: Zahl zwischen 0 und 255 oder 256 
bis 65535 (bei Verwendung als “freier 
Wert”) 

Nachdem Sie das Bonusprogramm 
BINKING gestartet haben, stehen Ihnen 
folgende RSX-Befehle zur Verfügung: 

ISEARCH, Wert-1, Wert-2,..., Wert- 

32 - sucht die angegebene Byte-Folge 
im aktuellen Programm. Auch die Ver¬ 
wendung von “freien Werten” ist mög¬ 
lich. Das bedeutet, daß der eigentliche 
Wert des Parameters beim Suchvorgang 
nicht berücksichtigt wird. Hierein Bei¬ 
spiel: 

Sie suchen alle CALL-Befehle im Be¬ 
reich &57(X) bis &57FF. Geben Sie ein: 

|SEARCH,&CD, 555, &57 

Der zweite Parameter ist in diesem Bei¬ 
spiel ein “freier Wert”. Freie Werte müs¬ 
sen zwischen 256 und 65535 liegen. 
Weile unter 256 sind zwingende Werte. 
Freie Werte dürfen in beliebiger Anzahl 
und an beliebiger Stelle im Ausdruck 
Vorkommen. Einzige Bedingung: Bei 
Verwendung von freien Werten müssen 
mindestens zwei Parameter angegeben 
werden. Die Ausgabe kann jederzeit mit 
einer beliebigen Taste angehalten oder 
mit <ESC> abgebrochen werden. 

Fehlermeldung: 

Operand missing = kein Parameter ein¬ 
gegeben 

ISEARCH, string - sucht den angege¬ 
benen String im aktuellen Programm. 
Bei der String-Option darf nur ein Para¬ 
meter angegeben werden. Die Ausgabe 
kann jederzeit mit einer beliebigen Taste 
angehalten oder mit <ESC> abgebro¬ 
chen werden. 

Fehlermeldung: 

Operand missing = kein Parameter ein¬ 
gegeben 

|COUNT, Wert-1, Wert-2,..., wert-32: 

- zählt, wie häufig die angegebene 



Bild I: 

jl! ELP. ALL listet 
alle im Speicher 
befindlichen 
RSX- Befehle 
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Byte-Folge in der aktuellen Datei vor¬ 
kommt. Auch hier ist die Verwendung 
von “freien Werten“ zulässig. Bei Ver¬ 
wendung von freien Werten bitte min¬ 
destens zwei Parameter angeben. 
(COUNT, string - zählt, wie häufig der 
angegebene String in der aktuellen Da¬ 
tei vorkommt. Bei der String-Option 
darf nur ein Parameter verwendet wer¬ 
den. 

Fehlermeldung: 

Operand missing = kein Parameter ein¬ 
gegeben 

(MONITOR, Startadr - zeigt die 
HEX- und ASCII-Werte ab der angege¬ 
benen Startadresse. Nach jeweils 16 
Zeilen stoppt die Ausgabe, die Auffor¬ 
derung “Taste drücken“ wird daraufhin 
ausgegeben. Hier haben Sie folgende 
Möglichkeiten der Tastenbetätigung: 

a) <ESC> - Abbruch 

b) Cursor hoch oder Cursor links: eine 
Seite zurück 

c) andere Taste: eine Seite vor 
ISWITCH - umschalten der aktuellen 
Datei 

(BYTES, Anzahl - wirkt auf 
SEARCH-Befehl. Es wird nicht nur die 
Fundadresse angezeigt, sondern auch 
noch die gewünschte Anzahl Bytes da¬ 
zu. Hier ein Beispiel: Mit der Befehls¬ 
folge 

|BYTES,3|SEARCH, &CD 

werden alle CALL-Befehle mit der An- 
sprungadresse angezeigt. 

|BYTES, 0 

schaltet diese Einrichtung wieder aus 
(das heißt nur noch Anzeige der Fund¬ 
adresse). 

Fehlermeldung: 

Operand missing = kein Parameter ein¬ 
gegeben 

|ASCII - wirkt auf die Befehle 
ISEARCH sofern IBYTES aktiviert ist, 
und auf IPEEK. Die Ausgabe erfolgt 
nicht mehr als HEX-Code, sondern als 
ASCII-Zeichen. Steuer-Codes sowie 
Grafikzeichen werden nicht angezeigt, 
an deren Stelle wird ein Leerzeichen 
ausgegeben. 

HEX - ausschalten des ASCII-Befehls 

ICOMMAND, Befehl - zeigt, ab wel¬ 
cher Speicherstelle die Ausführung ei¬ 
nes bestimmten RSX-Befehls beginnt. 
Bedingung ist, daß das entsprechende 
Programm bereits initialisiert wurde. 
Groß- oder Kleinschreibung wird nicht 
berücksichtigt. Bit 7 am Ende des 
Strings braucht nicht gesetzt zu werden. 


01 ff 4§ 21 SB 48 C8 81 » 24 5« 87 22 45 48 28 I 

1 47 22 4? 45 21 8ft 47 11 55 48 81 8B ® S B8 t . 

21 Sfl SB 11 53 4$ 01 03 J® ED B3 3E C3 32 Sft BBi IZ..S».>.2Z. 

21 82 45 22 58 BB fS 32 4B 48 32 4C 48 32 48 45 i 

32 4F 48 32 50 4B 32 92 SB 32 93 58 21 58 48 11 I 2Wt2PH2.I2.nX8. 

30 83 Ö1 03 0ÖEDB9C3C3 6&47FC8SSF48ÄC I 6.§. 

48 C3 73 41 C3 56 41 C3 TB 42 C3 F7 42 C3 3S 43 1 §.sft.ffl,<B..l7SC 

C3 4S « C3 49 43 C3 « 43 <3 83 43 C3 «5 43 C3 I .EC.IC.NC, .C..C. 

44 43 C3 a 43 C3 FS 43 C3 23 44 C3 Sfl 44 C3 BF I .C..C..C.Ö.S.o 

44 C3 SB 44 C3 C? 44 C3 17 45 C3 36 46 « 85 43 I D,.D..5,.E,fi8..X 

C3 IC 4ft C3 FB 43 C3 U 45 C3 83 4$ 53 4S 41 S2 t ..J..I..E..FSE« 

43 C8 43 4F S5 4E 94 45 4F 41 49 54 4F K 53 S? \ C.COIH.MHIIO.Sil 

49 54 43 CS 42 58 54 45 B3 41 53 43 43 C3 48 45 ! nC.WILfiSCI.ffi 

n 43 4F 45 45 41 41 C4 53 52 49 4| 54 43 M 53 I XDMfflH.PSiDilE.S 

43 52 45 45 CE 42 49 54 B? 52 41 4T 47 CS 58 45 I CSEE.BILR8fK.PI 

45 CB 58 4F 42 CS S0 4F 4B 45 2E 41 44 82 48 ff ! E.M.WKE.ftB.» 


last? sraedcer: ... 


Bild 2: 

Mit! MONITOR 
wird der Hexdump 
vorn BASIC aus möglich 

Fehlermeldung: 

Operand missing = kein Parameter ein¬ 
gegeben, 

Unknown cömmand = angegebener Be¬ 
fehl wurde nicht initialisiert. 

|PRINTER - alle Ausgaben erfolgen 
auf Bildschirm und Drucker. Funktio¬ 
niert beispielsweise auch mit CAT-Be- 
fehl etc. 

Fehlermeldung: 

Printer nicht bereit 

ISCREEN - Ausgaben erfolgen nur auf 
den Bildschirm. 

|BIT 7 - ein sehr nützlicher Befehl, 
wenn beispielsweise Befehlstabellen 
umdefiniert werden sollen. Namen von 
RSX-Befehlen bestehen bekanntlich 
aus Großbuchstaben, deren letztes Zei¬ 
chen ein gesetztes siebentes Bit hat. 
Dieser Befehl definiert die CONTROL- 
Ebene aller Tasten um. <CTRL> und 
Buchstabentaste ergibt den entspre¬ 
chenden Großbuchstaben mit gesetztem 
Bit 7. 

Der Zehnerblock wird so umdefiniert, 
daß <CRTL> und entsprechende Taste 
einen Buchstaben ergeben, also <CRTL 
+ Fl> = A, <CRTL + F2> = B, <CRTL 
+F3> = C und so weiter. Sehr nützlich 
ist dies beim Abtippen von HEX- 
Listings. Zurückgeschaltet auf den Nor¬ 
malzustand wird durch nochmalige Ein¬ 
gabe des IBIT7-Befehls. 

|RANGE - zeigt die Werte der aktuel¬ 
len Datei an (Startadresse, Länge und 
Dateiname). 

|PEEK, Adresse - zeigt den Wert an der 
angegebenen Adresse, entweder in 
FIEX- oder ASCII-Form. 

|PEEK, Adresse, Länge - zeigt Werte 
ab der angegebenen Adresse, entweder 
in HEX- oder ASCII-Form. 


Fehlermeldung: 

Operand missing = kein Parameter ein¬ 
gegeben, 

Syntax error = drei oder mehr Parameter 
eingegeben. 

|POKE, Adresse, Byte-1, Byte-2, ..., 
Byte-31 - schreibt die angegebenen 
Byte-Werte ab der angegebenen Adres¬ 
se in den Speicher. 

|POKE, Adresse, String - schreibt den 
angegebenen String ab der angegebenen 
Adresse in den Speicher. 

Fehlermeldung: 

Syntax error = weniger als zwei Para¬ 
meter angegeben 

|POKE.ADR, Adressel, Adresse! - 
schreibt die Adresse2 an die Speicher¬ 
stelle Adressel (Low-Byte von Adres¬ 
se! an Speicherstelle Adressel, High- 
Byte von Adresse2 an Speicherstelle 
Adresse 1 + 1). 

|FILLMEM, Adresse, Länge, Byte - 
füllt den Speicher ab der angegebenen 
Adresse mit dem angegebenen Byte. 
Als Byte kann auch die erste Position 
aus einem String dienen. 

Fehlermeldung: 

Adresse, Länge, Byte = ungültige Para¬ 
meteranzahl 

|REPLACE, Ersatz-String, Such- 
String - alle Byte-Folgen im aktuellen 
Programm, die dem Such-String ent¬ 
sprechen, werden durch den Ersatz- 
String ersetzt. Die Länge der beiden 
Strings braucht dabei nicht identisch zu 
sein. Beispiel: Soll JUMP&A 123 durch 
JUMP &A145 ersetzt werden, gehen 
Sie wie folgt vor: 

alt$=chr$(&c3+chr$(&23+ 
chrS(&al): 

neu$=chr$(&c3+chrS(&4 5) + 
chr$ (&al) : 

IREPLACE, @neu$, @alt$ 
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Fehlermeldung: 

Ers.-String, Such-String = ungültige Pa¬ 
rameteranzahl 

|MÜVE, Urspr. Adr., Ziel-Adr., Län¬ 
ge - verschiebt die in Parameter “Län¬ 
ge” angegebene Anzahl Bytes ab Ur¬ 
sprungsadresse an die Zieladresse. 
Überschneidungen der beiden Bereiche 
sind möglich. Die optimale Kopierrich¬ 
tung (vorwärts/rückwärts) wird vom 
Programm selbständig festgelegt. 
Fehlermeldung: 

Urspr. Aclr., Ziel-Adr., Länge bei ungül¬ 
tiger Parameteranzahl 
|RE(JISTER - zeigt die Werte der Z80- 
Register. Bei Angabe von Parametern 
verändert sich der Wert von IX in Ab¬ 
hängigkeit von der Anzahl der Parame¬ 
ter. 


(File-Nummern in der Reihenfolge der 
entsprechenden ORG-Adressen ). 

|HELP, 0 - zeigt die RSX-Befehle im 
aktuellen Programm. 

IHELP.ALL - Bedingung ist, daß alle 
Dateien an die Originaladressen gela¬ 
den werden müssen, womit eine korrek¬ 
te Auswertung möglich wird. 

IDIS.SEARCH, byte, Start-Adr., 
End-Adr. (Dateiname) - benutzt den 
Disassembler zur Suche nach dem ange¬ 
gebenen Byte. Als Beispiel soll der Be¬ 
fehl CALL gesucht werden zwischen 
Adresse &5000 und &5200: 

I DIS.SEARCH,&CD,&5000,&5200 

Falls die Ausgabe in eine Datei erfolgen 
soll, kann auch ein Dateiname angege¬ 
ben werden (als vierter Parameter). Die 



IF1LECOMP, Filel, Lade-Adressel, 
File2, Lade-Adresse2 - vergleicht den 
Inhalt zweier Binärdateien und zeigt die 
Unterschiede an. Es werden die Origi¬ 
naladressen ausgegeben, an denen die 
Unterschiede auftreten. Bei unter¬ 
schiedlicher Dateilänge ist die Länge 
von Filel maßgebend. Es wird der 
HEX-Wert von Filel und File2 ange¬ 
zeigt, zusätzlich der entsprechende 
ASCn-Wert, sofern es sich um ein dar¬ 
stellbares Zeichen handelt (ASCII-Wert 
32 bis 127). 

Fehlermeldung: 

Filel, Adr.J, File2, Adr.2 = ungültige 
Parameterzahl 

|INIT - stellt alle Flags auf Wert 0 zu¬ 
rück und entspricht der Befehlsfolge 

I BYTES, 0: |HEX: ISCREEN 

|HELP— zeigt alle RSX-Befehle im ak¬ 
tuellen Programm. 

|HELP, File-Nummer - zeigt die RSX- 
Befehle im angegebenen Programm 


Bild 3: 

Die komfortable Aus¬ 
gabe des Disassemblers 

Opcode-Zählwerke werden für alle Op- 
codes gleichzeitig geführt (nicht nur für 
den angesprochenen Opcode!). 

|DISASS, Start-Adr., End-Adr., (Da¬ 
teiname) - Dieser Disassembler hat Fä¬ 
higkeiten, die man bei anderen Pro¬ 
grammen dieser Art vergebens sucht. So 
ist es beispielsweise möglich, die Aus¬ 
gabe nicht nur auf Bildschirm und 
Drucker, sondern auf Wunsch auch zu¬ 
sätzlich in eine Datei schreiben zu las¬ 
sen. Diese Datei kann später mit einer 
Textverarbeitung weiterbearbeitet wer¬ 
den. Wenn die Ausgabe auf Diskette er¬ 
folgen soll, muß der entsprechende Da¬ 
teiname als dritter Parameter angegeben 
werden, sonst genügt die Angabe der 
Start- und Endadresse. 

Die Ausgabe kann jederzeit durch 
Drücken einer beliebigen Taste angehal¬ 
ten beziehungsweise durch <ESC> ab¬ 
gebrochen werden. Taste <R> bewirkt 
die Anzeige der aktuellen Z80-Register- 


inhalte. Diese Ausgabe wird jedoch 
nicht in eine eventuell geöffnete Datei 
übertragen. Zusätzlich zur üblichen 
Ausgabe wird das ASCII-Zeichen des 
Programmcodes angezeigt. Dies er¬ 
möglicht. Tabellen und Texte innerhalb 
des Codes zu erkennen. 

Im weiteren werden PUSH-Befehle mit 
nachfolgendem POP in LD-Befehle 
umgewandelt. Dies erhöht die Über¬ 
sichtlichkeit. Zum Beispiel wird die Be¬ 
fehlskette PUSH HL, POP DE als LD 
DE, HL ausgegeben. Das funktioniert 
mit den Registern BC, DE, HL und AF. 
Falls Sie eben genanntes nicht wün¬ 
schen, “POKEN” Sie an die Adresse 
&5599 den Wert &C9, ansonsten muß 
diese Speicherstelle den Wert &23 auf¬ 
weisen. Bei den Befehlen RST08, RST 
10. RST 18 und RST 28 wird die dazu¬ 
gehörige Adresse ebenfalls angezeigt. 

Bei Betriebssystemroutinen im Bereich 
zwischen &BB00 und &BDF4 (ohne 
&BBB7 und Bereich &BD5B bis 
&BDCA) wird der Name der entspre¬ 
chenden Routine angezeigt. Zum Um¬ 
fang des Programms gehören auch Sta¬ 
tistikfunktionen. Für jeden abgearbeite¬ 
ten Opcode wird ein separater Zähler 
geführt. 

Der Wert des Zählers kann nach Been¬ 
digung von DISASS mit der BASIC- 
Funktion PRINT FNanz(Opcode) abge¬ 
fragt werden (siehe BASIC-Starter). 
Das Total der abgearbeiteten Assem¬ 
blerzeilen wird durch die Funktion 
PRINT FNtotal ausgegeben. Für alle, 
die die Arbeitsweise des Disassemblers 
untersuchen wollen: Die Einsprung¬ 
adresse des Opcodes wird durch die 
Funktion PRINT FNadr$(Opcode) an¬ 
gezeigt. 

Wichtige POKES 

&A76A: ORG-Adresse des aktuellen 
Programmes (2 Byte). 

&A76D: Länge der aktuellen Datei 
(2 Byte). 

&A70A: Name der aktuellen Datei (11 
Byte - sind vollständig zu benutzen!). 

Mit dem Programm BINK1NG wird es 
möglich, auf einfache Weise von der 
BAS IC-Ebene aus Manipulationen an 
Maschinenprogrammen vorzunehmen. 
Das bringt entscheidende Vorteile. Zum 
Beispiel können ohne ständiges Verlas¬ 
sen und anschließenden Neuaufruf ei¬ 
nes Monitorprogramms oder derglei¬ 
chen Programme vom BASIC aus ge¬ 
startet und getestet werden. 

(M. Wepfer/jg) 

6/7’91 PC 15 





















r~Programm 



Kontoverwaltung 

Ein komfortables Programm zur 
Überwachung Ihres Bankkontos 

Kontovervvaltungsprogramme gibt es eine Menge, aber viele haben ein 
Manko. Man kann mit diesen Programmen zwar Bankkonten verwalten, 
immer wiederkehrende Buchungen aber, wie zum Beispiel Miete, 
Kreditabzahlungen, Versicherungen, Energie, Zeitung, Rundfunk und so 
weiter muß man Monat für Monat noch per Hand eingeben. Unser 
Programm KONTO zeigt, daß dies auch anders geht. 


Das Programm ist vollständig menüge¬ 
steuert und ermöglicht die Eingabe von 
Festabbuchungen (Buchungen, die mo¬ 
natlich, vierteljährlich, halbjährlich 
oder jährlich immer wieder anfallen) 
und bucht sie selbständig zu oder ab. 
KONTO verwaltet vier Konten mit ins¬ 


gesamt 1100 Einträgen (Konto I = 500, 
Konto 2,3 und 4 = je 200). Die Buchun¬ 
gen können auf Bildschirm oder auf 
Drucker ausgegeben werden. Die Ein¬ 
träge werden in einer Datei mit Jahres¬ 
zahlkennung abgespeichert. Sind doch 
einmal vor Ablauf eines Jahres 1100 
Einträge erreicht, 
was im Privatbe¬ 
reich höchst un¬ 
wahrscheinlich 
sein dürfte, wird 
einfach eine neue 
Datei eröffnet. 

KONTO bietet fol¬ 
gende Funktionen: 

- maximal 1100 
Einträge für Ih¬ 
re Konten 1 -4 in 
einer Datei 

- maximal 45 
Einträge für 
Festabbuchun¬ 
gen oder Fest- 
aufbuchungen 


- alle Daten werden in drei verschiede¬ 
nen Dateien gespeichert: 

1. Ihre persönlichen Kontodaten 

2. Ihre Kontonummern des je¬ 
weiligen Kontos 

3. Ihre Festabbuchungen für die 
jeweiligen Konten 

- alle Daten können nachträglich ver¬ 
ändert werden 

- Ausgabe Ihrer Daten wahlweise auf 

Bildschirm oder Drucker 

Das Schöne an KONTO ist, daß es sich 
im Prinzip von selbst erklärt und da¬ 
durch sehr einfach zu bedienen ist. Die 
folgenden Erläuterungen lesen sich da¬ 
her wahrscheinlich "schwerer", als das 
Arbeiten mit dem Programm dann tat¬ 
sächlich ist. 

Das Programm besteht aus zwei Einzel¬ 
programmen, dem ersten Teil KON¬ 
TO^ AS und Teil zwei KONTO 1.BAS. 
Gestartet wird es mit 

RUN"KONTO. 

Der zweite Teil wird später automatisch 
nachgeladen. Nach der Initialisierung 
werden Sie zuerst nach dem aktuellen 
Datum gefragt. Die Jahreszahl des Da¬ 
tums wird später beim Abspeichern an 
die Datendatei angehängt. Nach der 
Eingabe des Datums fragt das Pro¬ 
gramm, ob Sie eine neue Datei eröffnen 
wollen. Beim allerersten Start müssen 
Sie diese Frage mit <J> bestätigen, da 
sich auf Ihrer Diskette noch keine Datei 
mit Ihren Kontodaten befindet. Als 
nächstes werden Sie gefragt, ob Sie die 
Festabbuchungen ändern möchten, was 
Sie je nach Vorhaben mit <J> oder <N> 
beantworten müssen. 

Nach einem <N> für Nein werden die in 
einer Datendatei gespeicherten Festab¬ 
buchungen eingeladen. Das Programm 
prüft dann, ob die Abbuchungen in Ihre 
Kontodaten eingetragen werden müssen 
oder nicht. Danach wird der zweite Teil 
des Programms geladen. 

Beantworten Sie die Frage aber mit <J> 
für Ja, erscheint eine Zusatzfrage, ob Sie 
die Festabbuchungen komplett erneuern 
- <E> - oder nur ändern möchten - 
<A>. Beim Ändern ist eine Korrektur 
oder eine Erweiterung Ihrer Festabbu¬ 
chungen nachträglich möglich. Beim 
ersten Start drücken Sie also <E> für 
ERNEUERN. 

Der Bildschirm wird daraufhin ge¬ 
löscht, und Sie können sich aussuchen, 
für welches Konto (1-4) Sie die Festab¬ 
buchungen eintragen möchten. Für 
Konto 1 (als Girokonto gedacht) stehen 
15 Festabbuchungen zur Verfügung, für 
Konto 2, 3 und 4 je zehn Festabbuchun¬ 
gen. Nach der Festlegung des Kontos 



Bild I: Die Optionen des b'unknonsuitswahlmeniis 


16 PC 6/7’91 



































Programm—i 



Bild 2. Informationen körnten auf gelistet werden 


tippen Sie als nächstes die Kontonum¬ 
mer ein. Danach werden Sie aufgefor¬ 
dert, Ihren Buchungstext einzugeben 
(Beispiel: Miete), dann den Betrag, der, 
je nachdem, zu- oder abgebucht werden 
soll (Beispiel: -700,50). Bei Abbuchun¬ 
gen muß das Minuszeichen vorange¬ 
stellt werden, bei Kontoeingängen, etwa 
Gehalt, ein Additionszeichen. Nach die¬ 
ser Eingabe werden Sie weiter gefragt, 
ab welchem Monat und Jahr diese Ab¬ 
buchung erfolgen soll, beispielsweise 
03/91 = März 91. Und als letztes kommt 
noch die Eingabe, in welchen Abstän¬ 
den die Buchung erfolgen soll. Dabei 
bedeutet 

1 = monatlich, 

2 = vierteljährlich, 

3 = halbjährlich, 

4 = jährlich. 

Wenn Sie auch diese Eingabe erledigt 
haben, können Sie weitere Festabbu¬ 
chungen eintragen oder abbrechen. 
KONTO überprüft nun automatisch, ob 
Ihre Festabbuchungen in Ihre Kontoda¬ 
ten eingetragen werden müssen oder 
nicht. Anschließend wird Teil 2 mit dem 
Hauptmenü geladen. Der zweite Teil 
des Kontoprogramms beinhaltet nun al¬ 
le Funktionen, die zum Führen eines 
Bankkontos notwendig sind. 

Das Hauptmenü besteht aus zehn ein¬ 
zelnen Meniipunkten, die mit den Cur¬ 
sor-Tasten (<UP> und <DOWN>) an¬ 
gewählt und durch <RETURN> ange¬ 
sprungen werden. 


Die Menüpunkte 
im einzelnen: 

1. Konto 1-4 
Hier bestimmen 
Sie, mit welchem 
Konto Sie arbeiten 
möchten. 

2. Informationen 
eingeben 

Hier können Sie 
Ihre persönlichen 
Kontodaten einge¬ 
ben. Alle Eingaben 
werden mit 

<RETURN> abge¬ 
schlossen. Der Cur¬ 
sor fährt selbstän¬ 
dig zur nächsten 
Eingabemarke. 

3. Informationen auflisten 

Hier werden Ihre Kontodaten aufgeli¬ 
stet. In der obersten Zeile des Bild¬ 
schirms werden Ihnen noch das Datum, 
das Konto, die Kontonummer und Ihr 
Gesamtbetrag angezeigt. Ist der Bild¬ 
schirm voll, hält das Programm an. Mit 
Betätigen der Taste <W> wird weiter 
aufgelistet. 

4. Suchen 

Hier können Sie Kontodaten nach be¬ 
stimmten Einträgen durchsuchen las¬ 
sen. Sie geben entweder einen Suchtext 
ein, beispielsweise "Miete", oder einen 
Monat, in dem Fall "03" für März. Der 
gefundene Suchtext wird auf dem Bild¬ 
schirm ausgegeben. 

5. Informationen speichern 

Hier werden Ihre Kontodaten auf Dis¬ 
kette gesichert. Es werden drei Dateien 
abgespeichert: a) Ihre direkten Konto¬ 
daten in einer Datei mit Jahreszahlken¬ 
nung, b) Ihre Kontonummern, c) Ihre 
Festabbuchungen. 

6. Gesamte Konten zeigen 

Es werden Ihnen die Konten 1-4 aulge- 
listet. In der rechten oberen Ecke des 
Bildschirms werden Ihnen Ihre Gesamt¬ 
ersparnisse in DM angezeigt. So können 
Sie sich auch gleichzeitig einen Über¬ 
blick über alle Kontoeinträge verschaf¬ 
fen. 

7. Einträge ändern 

Bei diesem Menüpunkt können Sie 
nachträglich Ihre Konloeinträge ändern 
oder ganz löschen, wenn Sie sich bei der 


Eingabe verschrieben haben oder wenn 
Sie einen bestimmten Eintrag nicht 
mehr benötigen. Beim Löschen eines 
Eintrags werden die nachfolgenden Ein¬ 
träge automatisch neu numeriert. 

8. Druckerausgabe 

Hier können Sie die Einträge eines ein¬ 
zelnen Kontos, aller Konten oder nur ei¬ 
nes bestimmten Monats auf den Druk- 
ker ausgeben lassen. Das aktuelle Da¬ 
tum und die Nummer des Kontos, das 
Sie gerade ausgewählt haben, werden 
mit ausgedruckt. 

9. Return Festabbuchungen 

Falls Sie etwas vergessen haben oder 
noch etwas in Ihre Festabbuchungen 
eintragen möchten, können Sie hier 
gleich wieder in den ersten Teil sprin¬ 
gen, ohne daß Sie von vorne mit 

RUN"KONTO 

starten müssen. Beachten Sie aber bitte, 
daß Ihre Daten verlorengehen, wenn Sie 
diesen Punkt gewählt und vergessen ha¬ 
ben, Ihre Daten abzuspeichem. 

10. Ende 

Nach einer Sicherheitsabfrage wird das 
Programm beendet. 

Ein Tip zur Datensicherheit: 

Um Ihre persönlichen Kontodaten vor 
dem Zugriff anderer Personen zu schüt¬ 
zen, entfernen Sie bitte in Zeile 10 das 

GOTO 30 

tragen Sie bei 

AA$='CODEWORT' 

Ihr persönliches Codewort ein und spei¬ 
chern es wieder ab. 

Beim erneuten Programmstart fragt 
KONTO zuerst nach Ihrem Codewort - 
also merken Sie es sich gut! Ist die Ein¬ 
gabe unkorrekt, löscht sich das Pro¬ 
gramm sofort aus dem Speicher. 

KONTO bietet also auf einfachem We¬ 
ge eine komfortable Möglichkeit, Giro- 
und Sparkonto im Griff und im Über¬ 
blick zu behalten. Wer mag, kann sich 
Gedanken zu einer Haushaltsbuchfüh¬ 
rung machen, die dann mit KONTO zu¬ 
sammenarbeitet. 


(Stephan Dittrich/tk) 


für 464-6128 

I— - 

10 FRAMErCLEAR INPUT [543] 

20 GOTO 30:lzeil=PEEK(370):hzei=PEEK(371): [13657] 
POKE 370,0:POKE 371,0:KEY DEF 66,0,0,0,0:C 
URSOR 0:PRINT "CODEWORT:AA$="codewort":C 
ALL &BB57:INPUT AB$:IF AB$=AA$ THEN POKE 3 
Listing KONTO BAS 



/i/,_L,st:x:i_UK£>UK iifc-UAU 3 71, nzei: GOTO 30 EL 
E CALL 0 

30 CALL &BB54:DIM a$(1100):DIM butext$(ll 
0):DIM datum$(1100):DIM betrag$(1100):DIM 
gesamt( 1100 ) 

40 DIM p$(45):DIM q$(45):DIM r$(45):DIM r 
$(45):DIM S$(45):DIM u(45) 

50 ON ERROR GOTO 2210 
60 ' 

Listing KONTO BAS 


[2811] 


[2977] 

[1481] 

[117] 
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70 ' *** Datumseingabe *** 

80 ' 

90 MODE 2:BORDER 1:PAPER 0:PEN 1:INK 0,1:1 
NK 1,24 

100 LOCATE 20,3:PRINT "******************* 
********************* 

110 LOCATE 20,4:PRINT "* Kontoverwaltung b 
y STEPHAN DITTRICH *" 

120 LOCATE 20,5:PRINT ******************** 
********************** 

130 LOCATE 20,9:PRINT"Bitte geben Sie das 
heutige Datum ein I1" 

140 LOCATE 20,10:INPUT "Zuerst den Tag:",k 
$:IF LEN(k$)<>2 OR VAL(k$)>31 OR VAL(k$)<l 
THEN 150 ELSE 160 

150 LOCATE 35,10:PRINT SPC(15)," ":GOTO 14 
0 

160 LOCATE 20,11:INPUT "dann den Monat:",1 
$:IF LEN(1$)<>2 OR VAL(1$)>12 OR VAL(1$)<1 
THEN 170 ELSE 180 

170 LOCATE 35,11:PRINT SPC(15)," ":GOTO 16 
0 

180 LOCATE 20,12:INPUT " nun das Jahr:",m 
$:IF LEN(m$)<>2 OR VAL(m$)<91 OR VAL(m$)<l 
THEN 190 ELSE 200 

190 LOCATE 35,12:PRINT SPC(15)," ":GOTO 18 
0 

200 LOCATE 35,1:PRINT k$;".";1S;".";m$:GOT 
O 220 

210 LOCATE 72,1:PRINT k$;".";1$;".";m$ 

220 LOCATE 20,14:PRINT"Neue Datei eroeffne 
n J/N » 

230 n$="" 

240 n$=INKEYS 

250 IF n$ = "j" THEN bc=l:GOTO 280 
260 IF n$="n" THEN bc=0:GOTO 280 
270 GOTO 240 
280 ' 

290 '*** Abfragen Festabbuchungen *** 

300 ' 

310 LOCATE 20,16:PRINT"Wollen Sie die Fest 
abbuchungen aendern ? J/N" 

320 n$=INKEY$ 

330 IF n$="j" THEN 380 

340 IF n$="n" THEN kl=0:k2=0:GOTO 360 

350 GOTO 320 

360 IF bc=l THEN 370 ELSE 950 
370 LOCATE 20,18:PRINT"Nach dem laden der 
Festabbuchungen,":LOCATE 20,19:PRINT"bitte 
neue Datendiskette einlegen!":GOTO 950 
380 LOCATE 20,18:PRINT"Komplett (E)rneuern 
oder (A)endern ?" 

390 nS="" 

400 nS=INKEY$ 

410 IF n$="e" THEN kl=0:k2=l:GOTO 440 
420 IF n$="a" THEN kl=l:GOTO 950:' ***.Ers 
t alte Datei laden,dann austauschen *** 


[1689] 

[117] 

[2786] 

[2454] 

[4061] 

[2583] 

[4840] 

[6696] 

[1331] 

[6030] 

[1891] 
[6594] 


[1195] 

[1867] 

[1378] 

[2797] 


[498] 

[1130] 

[831] 

[1293] 

[421] 

[117] 

[2728] 

[117] 

[4869] 


[1130] 

[955] 

[1348] 

[500] 

[1319] 

[11088] 


[4015] 


[1130] 

[1471] 

[2383] 


430 GOTO 400 
440 ' 

450 '*** Festabbuchungen auflisten *** 

460 ' 

470 MODE 2:CLS:BORDER 1:RESTORE 

480 LOCATE 1,3:PRINT"*** Festabbuchungen e 

ingeben ***" 

490 LOCATE 1,5:INPUT "Fuer welches Konto:" 
,k:IF k>4 THEN LOCATE 20,5:PRINT " 

"•.GOTO 490 ELSE 500 
500 IF k=0 THEN 930 

510 IF nummerS(k)>"" THEN 570 ELSE 520 
520 LOCATE 35,5:INPUT"Konto-Nr.: ",nummer$ 
(k):LOCATE 74,5:PRINT "OK J/N" 

530 n$=INKEY$ 

540 IF n$="j" THEN 570 

550 IF n$="n" THEN LOCATE 51,5:PRINT SPC(2 
9)," ":GOTO 520 
560 GOTO 530 
570 IF k=0 THEN 930 
580 ON k GOTO 590,600,610,620 
590 IF p$ (15)>"" THEN 630 ELSE 640 
600 IF p$ (25)>"" THEN 630 ELSE 640 
610 IF p$ (35)>"" THEN 630 ELSE 640 
620 IF p$ (45)>"" THEN 630 ELSE 640 
630 LOCATE 1,7:PRINT"Keine Eintraege mehr 
frei fuer Festabbuchungen.Bitte anderes Ko 
nto waehlen !!!":FOR i=l TO 2000:NEXT:GOTO 
460 

640 ON k GOTO 650,660,670,680 

650 FOR i=l TO 15:GOSUB 700:NEXT:GOTO 470 

660 FOR i=16 TO 25:GOSUB 700:NEXT:GOTO 470 


[452] 

[117] 

[2068] 

[117] 

[2125] 

[4282] 


[5990] 


[617] 

[596] 

[3929] 


[1130] 

[845] 

[3215] 


[617] 

[2006] 

[ 1022 ] 

[1724] 

[1385] 

[1424] 

[12284] 


[2003] 

[1206] 

[2809] 


670 FOR i=26 TO 35:GOSUB 700:NEXT:GOTO 470 [3330] 


680 FOR i=36 TO 45:GOSUB 700:NEXT:GOTO 470 [1873] 


690 IF p$(i)>"" THEN 910 [1165] 

700 IF 1=15 OR i=25 OR i=35 OR i=45 THEN 7 [1824] 
10 ELSE 720 

710 LOCATE 1,15:PRINT"Letzter Eintrag fuer [3020] 
Konto ";k;"1!!" 

7 20 RESTORE: LOCATE 47,7: PRINT". [6306] 

.":LOCATE 1,7:INPUT "Bitte Buchungs 

text eingeben (max. 20 Stellen):",p$(i) 

730 IF LEN(p$(i))>20 THEN LOCATE 47,7:PRIN [3796] 
T SPC(33)," ":GOTO 720 ELSE 740 

740 IF p$(i)="" AND ic=l THEN 1560 ELSE 75 [3058] 
0 

750 IF p$(i)="" THEN 470 [1079] 

760 LOCATE 56,9:PRINT".":LOCATE [8349] 

1,9:INPUT "Bitte die Abbuchungssumme (Bsp: 

-40.25/+40.25 ) eingeben:",q$(l) 

770 qa$=MID$(q$(i),1,1):IF qa$="-" OR qa$= [2517] 
"+" THEN 790 ELSE 780 

780 LOCATE 54,9:PRINT SPC(25)," ":GOTO 760 [2389] 


790 IF qa$="+" THEN qa$=MID$(q$(i),2,(LEN( 
q$(i))-1)):q$(i)="":q$(i)=qa$ ELSE 800 
800 qa$=MID$(RIGHT$(q$(i),3),1,1):IF qa$=" 
." THEN 810 ELSE 780 

810 LOCATE 66,11:PRINT".":LOCATE 1,11: 

INPUT "Ab welchen Monat/Jahr(Bsp:03/91=Mae 
rz/91) soll abbgebucht werden:",rb$:r$(i)= 
MID$(rb$,1,2):ra$(i)=RIGHT$(rb$,2) 

820 rc$=MID$(RIGHT$(rb$,3),1,1):IF rc$="/" 
THEN 830 ELSE LOCATE 66,11:PRINT SPC(13), 
" ":GOTO 810 

830 FOR x=l TO 12:READ a$:IF x=VAL(r$(i)) 
THEN 840 ELSE 850 

840 LOCATE 66,11:PRINT " " ;a$ ;"/'";raS(i) 
850 NEXT 

860 LOCATE 1,13:INPUT "In welchen Abstaend 
en (l=monatlich/2=viertel-/3=halb-/4=Jaehr 
lieh):",s$(i):IF VAL(s$(i))<l OR VAL(s$(i) 
)>4 THEN LOCATE 68,13:PRINT" ":GOTO 860 


[2941] 

[2034] 

[9869] 


[4794] 


[3056] 

[1413] 

[350] 

[10308] 


870 LOCATE 1,7:PRINT SPC(78)," " 

880 LOCATE 1,9:PRINT SPC(78)," " 

890 LOCATE 1,11:PRINT SPC(78)," " 

900 LOCATE 1,13:PRINT SPC(78)," " 

910 RETURN 
920 ' 

930 '*** Datei laden *** 

940 ' 

950 IF bc=l THEN 960 ELSE 980 
960 IF kl=0 AND k2=0 THEN 1040 ELSE 970 
970 IF kl=l AND bc=l THEN 1040 ELSE 1750 
980 OPENIN "DATEI"+m$ 

990 FOR X=1 TO 1100 

1000 INPUT #9,butext$(x),datum$(x),betrag$ 
(x),gesamt(x) 

1010 NEXT 
1020 CLOSEIN 

1030 bg=0:IF k2=l THEN 1130 
1040 OPENIN "FESTBU" 

1050 FOR i=l TO 45 

1060 INPUT #9,p$(i),q$(i),r$(i),ra$(i),s$( 

i) 

1070 NEXT 

1080 CLOSEIN 

1090 OPENIN "kontonum" 

1100 INPUT #9,nummer$(l),nummer$(2),nummer 
$(3),nummer$(4) 

1110 CLOSEIN 
1120 CLS 
1130 ' 

1140 '*** Buchungen auffuehren - bleiben J 
/N *** 

1150 ' 

1160 IF kl=l THEN 1170 ELSE 1750 

1170 FOR i=l TO 15:IF p$(i)="" THEN 1180 E 

LSE k=l:GOSUB 1210:NEXT 

1180 FOR i=16 TO 25:IF p$(i)="" THEN 1190 

ELSE k=2:GOSUB 1210:NEXT 

1190 FOR i=26 TO 35:IF p$(i)="" THEN 1200 

ELSE k=3:GOSUB 1210:NEXT 

1200 FOR i=36 TO 45:IF p$(i)="" THEN 1560 

ELSE k=4:GOSUB 1210:NEXT:GOTO 1560 

1210 MODE 2:CLS:BORDER 1 

1220 IF i=l AND nummerS(1)>"" THEN 1260 

1230 IF i=16 AND nummerS(2)>"" THEN 1260 

1240 IF i=26 AND nummer$(3)>"" THEN 1260 

1250 IF i=36 AND nummerS(4)>"" THEN 1260 E 

LSE 1320 

1260 LOCATE 1,2:PRINT "Kontok;"/ Konto 
Nr.: nummerS(k)Aendern J/N" 

1270 n$=INKEY$ 

1280 IF n$="j" THEN nummerS(k)="":GOTO 131 
0 

1290 IF n$="n" THEN CLS:GOTO 1320 


[1804] 

[1069] 

[2265] 

[1785] 

[555] 

[117] 

[ 1120 ] 

[117] 

[1313] 

[2768] 

[1768] 

[1255] 

[1016] 

[2680] 

[350] 

[752] 

[1351] 

[1088] 

[548] 

[2399] 

[350] 

[752] 

[1331] 

[4207] 

[752] 

[91] 

[117] 

[2402] 

[117] 

[1025] 

[3411] 

[2158] 

[2289] 

[4603] 

[1488] 

[2431] 

[1944] 

[1648] 

[2693] 

[5344] 

[1130] 

[1965] 

[566] 
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1300 GOTO 1270 

1310 LOCATE 1,2:PRINT SPC(80)," ":LOCATE 1 
,2:INPUT "Neue Konto Nr.: ",nummer$(k):LOC 
ATE 1,2:PRINT SPC(80)," " 

1320 IF ic=l THEN RETURN ELSE RESTORE:LOCA 
TE 1,2:PRINT SPC(80),» LOCATE 1,2:PRINT" 
Konto: "; k; " Konto Nr.: ";numme 

r$(k) 

1330 LOCATE 1,4:PRINT "Buchungstext : ";p$ 

1340 LOCATE 1,5:PRINT "Buchungssumme: ";q$ 

1350 FOR x=l TO 12:READ a$:IF x=VAL(r$(i)) 
THEN 1360 ELSE 1370 

1360 LOCATE 1,6:PRINT "Ab Monat : ";a$ 
1370 NEXT 

1380 FOR x=l TO 4:READ a$:IF x=VAL(s$(i)) 
THEN 1390 ELSE 1400 

1390 LOCATE 1,7:PRINT "Abstaende : ";a$ 
1400 NEXT:RESTORE 

1410 LOCATE 1,8:PRINT"Soll diese Festabbuc 
hung bleiben und uebernommen werden J/N" 
1420 n$=INKEY$ 

1430 IF n$="j" THEN RETURN 
1440 IF n$="n" THEN 1460 
1450 GOTO 1420 

1460 IF k=l THEN ab=15:IF k=2 THEN ab=25:I 
F k=3 THEN ab=35:IF k=4 THEN ab=45 
1470 p$(i)="":q$(i)="":r$(i)="":s$(i)="" 
1480 IF i=15 OR i=25 OR i=35 OR i = 45 THEN 
GOTO 1170 

1490 FOR x=i TO ab 

1500 IF X=15 OR X=25 OR X=35 OR x=45 THEN 
1540 

1510 IF p$((X)+1)>"" THEN 1520 ELSE 1540 

i520 pS(x)=p$((x)+l):qS(x)=q$((x)+l):r$(x) 

=r$((x)+l):s$(x)=s$((x)+l) 

1530 NEXT:GOTO 1550 

1540 p$(x)="":q$(x)="":r$(x)="":sS(x)="" 
1550 GOTO 1170 

1560 LOCATE 1,10:PRINT"Wollen Sie weitere 
Festabbuchungen eintragen J/N":ic=0 
1570 n$=INKEY$ 

1580 IF n$="j" THEN ic=l:GOTO 1610 
1590 IF n$="n" THEN 1750 
1600 GOTO 1570 

1610 LOCATE 1,12:INPUT "Fuer welches Konto 
wollen Sie Einträgen:",k:IF k>4 THEN LOCA 
TE 41,12:PRINT" ":GOTO 1610 

1620 IF k=0 THEN 1750 

1630 IF k=l THEN ia=l:ib=15 

1640 IF k=2 THEN ia=16:ib=25 

1650 IF k=3 THEN ia=26:ib=35 

1660 IF k=4 THEN ia=36:ib=45 

1670 CLS:GOSUB 1260 

1680 FOR i=ia TO ib:IF p$(i)="" THEN 1690 
ELSE 1720 

1690 LOCATE 1,3:PRINT! 1 *** Festabbuchungen 
Einträgen ***" 

1700 LOCATE 1,5:PRINT"Konto:";k;"/Konto Nr 
.: ";nummer$(k) 

1710 ic=l:GOSUB 720 

1720 IF i=15 OR i=25 OR i=35 OR i=45 THEN 
1730 ELSE 1740 

1730 LOCATE 1,14:PRINT"Keine Eintraege meh 
r frei fuer dieses Konto !!!":LOCATE 41,12 
:PRINT" ":GOTO 1610 

1740 NEXT:GOTO 1560 
1750 ' 

1760 ' *** Konten einzeln abfragen und ueb 
erpruefen ob Festabbuchungen schon enthalt 
en sind *** 

1770 ' 

1780 MODE 2:CLS 

1790 LOCATE 1,3:PRINT"************ ******** 
****************************************^ 
******************n 

1800 LOCATE 1,4:PRINT"* 


[357] 

[5497] 

[8553] 


[4108] 

[4223] 

[3649] 

[2187] 

[350] 

[4138] 

[2939] 

[1136] 

[6819] 

[1130] 

[1300] 

[739] 

[399] 

[2666] 

[588] 

[2455] 

[ 1222 ] 

[1480] 

[1017] 

[3029] 

[1057] 

[ 1020 ] 

[305] 

[5484] 

[1130] 

[972] 

[577] 

[385] 

[8913] 


[580] 

[426] 

[1005] 

[715] 

[358] 

[760] 

[1639] 

[4812] 

[3214] 

[1038] 

[1747] 

[6749] 

[1063] 

[117] 

[5655] 


[117] 

[1257] 

[3924] 


[4332] 


1810 LOCATE 1,5:PRINT"* Bitte gedulden [ 
Sie sich einen Moment,ich ueberpruefe all 
e Konten !I! *» 

1820 LOCATE 1,6:PRINT"* [ 

*n 

1830 LOCATE 1,7:PRINT"******************** r 
****************************************** 
******************». IF bc=1 THEN 196Q 

1840 aa=l:ab=500:ba=l:bb=15:GOSUB 1880:aa= [ 
0 :ab=0:ba=0:bb=0 

1850 aa=50l:ab=700:ba=l6:bb=25:GOSUB 1880: [ 
aa= 0 :ab= 0 :ba= 0 :bb =0 

1860 aa=701:ab=900:ba=26:bb=35:GOSUB 1880: [ 

Listing KONTO. BAS 


8446] 

2142] 

5269] 

1697] 

4408] 

3519] 


aa=o:ab=0:ba=0:bb=0 

1870 aa=901:ab=1100:ba=36:bb=45:GOSUB 1880 
:aa=0:ab=0:ba=0:bb=0:GOTO 1960 
1880 FOR x=aa TO ab:IF butext$(x)="" THEN 
1940 ELSE 1890 

1890 t$=MID$(datumS(x),4,2):IF VAL(t$)<VAL 
(1$) THEN t$="":GOTO 1930 ELSE 1900 
1900 FOR i=ba TO bb:IF p$(i)="" THEN 1920 
ELSE 1910 

1920 IF butext$ ( x ) = P $ ( i ) THEN U(i)=l ELSE 

1920 NEXT i 
1930 NEXT X 
1940 RETURN 
1950 ' 

1970 ' *** Festabbuchun P en eintragen *** 
1980 aa=l:ab=500:ba=l:bb=15:bd=500:G0SUB 2 

020:bd=0:aa=0:ab=0:ba=0:bb=0:bf=o 
1990 aa=501:ab=700:ba=16:bb=25:bd=700:GOSU 
B 2020:bd=0:aa=0:ab=0:ba=0:bb=0:bf=0 
2000 aa=701:ab=900:ba=26:bb=35:bd=900:GOSU 
B 2020:bd=0:aa=0:ab=0:ba=0:bb=0:bf=0 
2010 aa=901:ab=ll00:ba=36:bb=45:bd=1100:GO 
SUB 2020:bd=0:aa=0:ab=0:ba=0:bb=0:bf=0 :GOT 
O 2170 

2020 FOR x=aa TO ab:IF butext$(x)="" THEN 

bd=bd-l 

2030 NEXT x 

2040 FOR i=ba TO bb:IF p$(i)>"" THEN 2050 
ELSE 2160 

2050 bh$="01.":bj$="." 

2060 IF u(i)=0 THEN 2070 ELSE 2150 

u2Z,°JL VAL(r$(i))>VAL(1$ ) ra$(i)<m$ T 
HEN 2090 ELSE 2080 

2080 IF VAL(r$(i))>VAL(1$) THEN 2150 
209° IF VAL(s$(i))=l THEN bf=bf +1: butextS ( 
bd + b f ) (: b ® bra ? $ (bd+bf ) =9$ (i): datum$ (b 

d+bf)=bh$+lS+bnS+ms:aS ( bd+hft = "-" :GOTO 215 


[4396] 

[2744] 

[5271] 

[3283] 

[1797 ] 

[375] 

[356] 

[555] 

[117] 

[1740] 

[117] 

[3774] 

[4543] 

[4319] 

[5471] 

[2353] 

[356] 

[2969] 

[817] 

[1056] 

[2665] 

[2131] 

[7157] 


d+bf)= bh$+l$+bj$+m|:a$(bd+bf)= 

0 ELSE 2100 
2100 IF VAL(s$(i))=2 THEN 2110 ELSE 2120 
2110 IF VAL(1 $)=VAL(r$(i)] OR VAL(1$)=VAL( 
r$(i))+3 OR VAL(l$)=VAL(r$(i))+6 OR VAL(1$ 
)=VAL(r$(i))+9 THEN bf=bf+l:butext$(bd+bf) 
=P$ ( i):betragS(bd+bf)=q$(i):datum$(bd+bf)= 
bh$+l$+b]$+m$:a$(bd+hf;GOTO 2150 ELSE 

2120 IF VAL(s$(i))=3 THEN 2130 ELSE 2140 

2139 IE 1 VAL( 1$) =VAL(r$ (i)) OR VAL(1$)=VAL( 
r $< l >) + ®,™ E L^ f= £ f t 1: butextS (bd+bf) =p$ (i 

:betragS(bd+bf)=q$(i):datum$(bd+bf)=bh$+l$ 
+b]$+m$:a$(bd+bf)="-":GOTO 2150 ELSE 2140 

2140 IF VAL(s$(i))=4 AND VAL(1$)=VAL(r$(i) 

l , 1 : butextS (bd+bf)=p$(i): betrag 

$ (1J: datura$ < bd+bf ) =bbS +1 $+bj $+m$ 
:a$(bd+bf)="-";GOTO 2150 ELSE 2150 

2150 NEXT 
2160 RETURN 

2170 CHAIN MERGE "kontol. bas ", 2300", DELETE 

220-2210 

2180 GOTO 50 

2190 DATA Januar,Februar,Maerz,April,Mai,J 
uni,Juli,August,September,Oktober,November 
,Dezember 

2200 DATA Monatlich,Vierteljaehrlich,Halbj 
aehrlich,Jaehrlich 
2210 RESUME 50 

Listing KONTO BAS 


[2801] 

[13066] 


[2566] 

[7982] 


[8912] 


[350] 

[555] 

[2558] 

[384] 

[5834] 


[1109] 

[679] 


2300 '*** Verteilung Konto 1-4 *** 

2310 FRAME:MODE l:CLS:BORDER 13:PAPER 0:PE 
N 1:INK 0,13:INK 1,0:aa=0:ab=0:gasamt=0:x= 

2320 LOCATE 11,1:PRINT "****************** 
*":LOCATE 11,2:PRINT "* KONTOVERWALTUNG *" 
:LOCATE 11,3:PRINT "*******************«-p 
RINT:LOCATE 7,5:PRINT "Written by Stephan 
Dittrich!" 

2330 LOCATE 3,12:PRINT "WELCHES KONTO WUEN 
SCHEN SIE ??? 1-4" 

2340 Z$=INKEY$ 

2350 IF Z$="l" THEN 3820 
2360 IF Z$="2" THEN 3830 
2370 IF z$="3" THEN 3840 
2380 IF z$="4" THEN 3850 
2390 GOTO 2340 
2400 ' 

2410 ' *** Hauptmenu *** 

Listing KONTOI BAS 


[1445] 

[4308] 


[9537] 


[3173] 

[740] 

[1206] 

[1188] 

[1196] 

[1436] 

[311] 

[117] 

[599] 
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2420 ' 

2430 xx=0:fy=0:fx=0:ff=0:MODE 2 

2440 LOCATE 24,2:PRINT"******************* 

**************" 


2450 

LOCATE 

24,3:PRINT"* 


2460 

LOCATE 

24,4:PRINT”* 


2470 

LOCATE 

38,4:PRINT "KONTO" 

2480 

LOCATE 

24,5:PRINT"* 


2490 

LOCATE 

38,5:PRINT "== 


2500 

LOCATE 

24,6: PRINT"* 


2510 

LOCATE 

24,7:PRINT”* 


2520 

LOCATE 

24,8:PRINT"* 

1. 

2530 

LOCATE 

24,9:PRINT"* 

2 . 

EINGEBEN 

*« 


2540 

LOCATE 

24,10:PRINT"* 

3. 

AUFLISTEN 

*n 


2550 

LOCATE 

24,11:PRINT"* 

4. 

2560 

LOCATE 

24,12:PRINT"* 

5. 

SPEICHERN 

*" 


2570 

LOCATE 

24,13:PRINT"* 

6 . 

TEN 

ZEIGEN 

*» 


2580 

LOCATE 

24,14:PRINT"* 

7. 

ENDERN 

* i 


2590 

LOCATE 

24,15:PRINT"* 

8 . 

ABE 


*« 


2600 

LOCATE 

24,16:PRINT"* 

9. 

ABBUCHUNG 

*" 


2610 

LOCATE 

24,17:PRINT"* 

10 

2620 

LOCATE 

24,18:PRINT"* 




*» 



KONTO NR.1-4 
INFORMATION 


[117] 
[1888] 
[2051] 

[1978] 

[2345] 

[2315] 
[2599] 

[914] 
[2851] 

[3209] 

[2858] 

[2232] 

INFORMATION [3659] 

SUCHE [1589] 

INFORMATION [3279] 

GESAMTE KON [4810] 

EINTRAEGE A [2926] 

DRUCKERAUSG [2797] 

RETURN-FEST [3736] 

ENDE [2646] 

[3718] 

[3148] 


2630 LOCATE 24,19 : PRINT’ 1 * ***************** 
***************» 

2640 Zl=8 

2650 LOCATE 26,zl:PRINT "=";CHR$(243):z2=z 
1 

2660 b$=INKEY$ 

2670 IF b$=CHR$(241) THEN 2700 

2680 IF b$=CHR$(240) THEN 2710 ELSE 2720 

2690 GOTO 2660 

2700 LOCATE 26,Z2:PRINT " ":zl=Zl+l:IF Zl 
>17 THEN Zl=8:GOTO 2660 ELSE 2720 
2710 LOCATE 26,z2:PRINT " ":zl=zl-l:IF zl 
<8 THEN zl=8:GOTO 2660 

2720 IF b$=CHR$(13) THEN ON Zl-7 GOSUB 231 

0,2820,2830,3430,3630,3810,3890,4340,4670, 

4250 ELSE 2650 

2730 LOCATE 1,25 

2740 PRINT" 


[492] 

[2343] 

[780] 

[1079] 

[2609] 

[311] 

[4691] 

[3488] 

[5018] 


[731] 

[3006] 


2750 LOCATE 1,25:PRINT "MIT * M * INS MENU [8266] 
E" :LOCATE 35,25:PRINT •'**********" :LOCATE 
48,25: PRINT "**********" -.LOCATE 64,25:PRIN 
» ************ 

2760 IF INKEY$="m" THEN 2770 ELSE 2760 [1025] 

2770 GOTO 2430 [349] 

2780 ' [117] 

2790 ' *** Informationen eingeben-aufliste [1743] 
n *** 

2800 ' [117] 

2810 ' *** Informationen auflisten *** [1944] 

2820 fy=l:GOTO 2830 [764] 

2830 gasamt=0:MODE 2:CLS [1023] 

2840 IF ff=l THEN 2860 [795] 

2850 LOCATE 49,1:PRINT "KONTO:";VAL(zS):GO [4213] 
TO 2870 

2860 LOCATE 48,1:PRINT "KONTO 1-4" [1508] 

2870 LOCATE 2,1:PRINT k$+"."+1$+"."+m$:LOC [6159] 
ATE 15,1:PRINT "Konto Nr.: "jnummerS(VAL(z 
$)) 

2880 WINDOW #1,1,6,5,23 

2890 WINDOW #2,8,17,5,23 [1477] 

2900 WINDOW #3,20,40,5,23 [1781] 

2910 WINDOW #4,64,75,5,23 [1761] 

2920 11=4 [200] 

2930 FOR x=aa TO ab [942] 

2940 n$=INKEY$ [1130] 

2950 IF n$=CHR$(13) THEN 2400 [765] 

2960 IF fx=2 THEN 3140 [778] 

2970 IF ff=l THEN 2980 ELSE 2990 [1235] 

2980 IF butextS(x)="" THEN 3360 [715] 

2990 IF butextS(x)="" AND fy=l THEN 3130 E [4112] 
LSE IF butextS(x)="" AND fy=0 THEN 3370 
3000 IF LEFT$(betragS(x),1)="-" THEN 3010 [2072] 

ELSE 3020 

3010 gasamt=gasamt-VAL(MID$(betragS(x),2)) [3725] 
:gesamt(x)=gasamt:GOTO 3040 

üsting KONTOI BAS _ 


3020 gasamt=gasamt+VAL(betrag$(x)):gesamt( [3688] 
x)=gasamt 

3030 IF 11=4 OR 11=5 THEN 3040 ELSE 3060 [1201] 

3040 LOCATE 2,3:PRINT"NR.":LOCATE 8,3:PRIN [10394] 
T"Datum":LOCATE 20,3:PRINT"Buchungstext":L 
OCATE 44,3:PRINT"Einzel Betrag":LOCATE 65, 

3: PRINT"Gesamt Betrag" 

3050 LOCATE 2,4:PRINT"- [5529] 


3060 11=11+1:IF 11>23 THEN 11=5 
3070 PRINT # 1,x „ _ 

3080 PRINT #2,datum$(x):PRINT #3,butext$(x 
):LOCATE 54 -LEN(betrag$(x)),11:PRINT betra 
g$ (x):LOCATE 55,11:PRINT "DM":PRINT #4,USI 
NG "#######,.##";ROUND(gesamt(x),2):LOCATE 
76,11:PRINT"DM":LOCATE 64,1:PRINT USING " 
#######,.##";ROUND(gesamt(x),2) 

3090 LOCATE 76,1:PRINT"DM":GOTO 3330 
3100 ' 

3110 ' *** Informationen eingeben *** 

3120 ' 

3130 LOCATE 2,25:PRINT "DRUECKE RETURN UM 
EINGABE ZU BEENDEN" 

3140 LOCATE 2,3 : PRINT"NR. " :LOCATE 8,3.:PRIN 
T"Datum":LOCATE 20,3:PRINT"Buchungstext" :L 
OCATE 44,3:PRINT"Einzel Betrag":LOCATE 65, 
3:PRINT"Gesamt Betrag" 

3150 LOCATE 2,4:PRINT"- 


[1676] 

[360] 

[9148] 


[1189] 

[117] 

[1523] 

[117] 

[4325] 

[10394] 


[5529] 


3160 11=11+1:IF 11>23 THEN 11=5 
3170 PRINT #1,X 

3180 LOCATE 8,11:PRINT".":INPUT #2, 

fl fl ( v ^ 

3190 IF datum$(x)="" THEN 2430 
3200 IF LEN(datum$(x))<>8 THEN 3210 ELSE 3 
220 

3210 LOCATE 8,11:PRINT " ":LOCAT 

E 8,11:PRINT".":LOCATE 8,11: INPUT # 

0,"",datum$(X):GOTO 3190 

3220 LOCATE 20,11:PRINT". 

INPUT #3,"",butextS(x) 

3230 LOCATE 46,11:PRINT"." :LOCATE 4 

6,11:INPUT #o,"",betrag$(x):LOCATE 46,11:P 
RINT SPC(LEN(betrag$(x))) 

3240 by$=MID$(RIGHTS(betragS(x),3),1,1) 
3250 IF by$="." THEN 3270 ELSE 3260 
3260 betrag$(x)=betrag$(x)+".00":by$="" 
3270 LOCATE 54-LEN(betragS(x)),11:PRINT be 
trag$(x):LOCATE 55,11:PRINT "DM" 

3280 IF LEFTS(betragS(x),1)="-" THEN 3290 
ELSE 3300 

3290 gasamt=gasamt-VAL(MID$(betragS(x),2)) 

:gesamt(x)=gasamt:GOTO 3310 

3300 gasamt=gasamt+VAL(betrag$(x)):gesamt( 

x)=gasamt 

3310 PRINT #4,USING "#######,.##";ROUND(ge 
samt(x),2):LOCATE 76,11:PRINT"DM":LOCATE 1 
,1:PRINT USING "#######,.##";ROUND(gesamt( 
x) ,2) 

3320 fx=2 

3330 xx=xx+l:IF xx=19 THEN 3340 ELSE 3360 
3340 xx=0:IF fy=l THEN 3350 ELSE LOCATE 1, 
25 :print"******** Mit 'W' weiter ******* 
*":IF INKEY$="w"THEN 3350 ELSE 3340 
3350 CLS#1:CLS#2:CLS#3:CLS#4:CLS:LOCATE 48 
,1:IF ff=l THEN PRINT "Konto 1-4" ELSE LOC 
ATE 49,1:PRINT "KONTO:VAL(z$):LOCATE 2,1 
:PRINT k$+"."+1S+"."+m$:LOCATE 15,1:PRINT 
"Konto Nr.: ";nummer$(VAL(z$)) 

3360 NEXT 

3370 LOCATE 1,24:PRINT "ENDE DER LISTE !!" 
:LOCATE 35,24:PRINT "**********":LOCATE 48 
,24:PRINT "**********":LOCATE 64,24:PRINT 
" ************ 

3380 IF ff=l THEN aa=dj:ab=dk 
3390 RETURN 
3400 ' 

3410 ' *** Eintraege suchen *** 

3420 ' 

3430 CLS:LOCATE 28,4:PRINT"*** Eintraege s 
uchen ***" 

3440 y=0:yy=0:LOCATE 30,12:INPUT "BUCHUNGS 
TEXT :";SUCH$ 

3450 CLS 

3460 IF SUCHS="" THEN 2400 
3470 WINDOW #1,1,6,5,23 
3480 WINDOW #2,8,17,5,23 
3490 WINDOW #3,20,40,5,23 
3500 WINDOW #4,64,75,5,23 
3510 11=4 

3520 FOR X=aa TO ab 

3521 IF VAL(SUCHS)>0 THEN 3522 ELSE 3530 

üsting KONTOI BAS 


[1676] 

[360] 

[2564] 

[1076] 

[1535] 

[5456] 


[3030] 

[6623] 

[2169] 

[1479] 

[2780] 

[3859] 

[2254] 

[3679] 

[3688] 

[7552] 


[273] 

[1501] 

[5872] 


[11803] 


[350] 

[7963] 


[1769] 

[555] 

[117] 

[1905] 

[117] 

[3896] 

[1570] 

[91] 

[1494] 

[1132] 

[1477] 

[1781] 

[1761] 

[ 200 ] 

[942] 

[19761 
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3522 IF INSTR(3,datum$(x),SUCH$)=0 THEN 35 
70 ELSE yy=yy+l:11=11+1:IF 11>23 THEN 11=5 

3523 GOTO 3540 

3530 IF INSTR(butext$(x),such$)=0 THEN 357 
0 ELSE yy=yy+l:11=11+1:IF 11>23 THEN 11=5 
3540 LOCATE 70,1:PRINT "KONTO: ";VAL(z$):L 

OCATE 70,2: PRINT "-" 

3550 PRINT #1,x:PRINT #2,datum$(x):PRINT # 
3,butext$(x):LOCATE 54-LEN(betrag$(x)),11: 
PRINT betrag$(x):LOCATE 55,11:PRINT "DM":P 
RINT #4,USING "#######,.##";ROUND(gesamt(x 
),2):LOCATE 76,11:PRINT"DM":LOCATE 1,1:PRI 
NT USING "#######,.##";ROUND(gesamt(x),2) 
3560 LOCATE 13,1:PRINT"DM" 

3570 NEXT:IF yy>0 THEN 3590 ELSE 3580 

3580 CLS:LOCATE 24,14:PRINT "- 

-":LOCATE 24,13:PRINT "B 

UCHUNGSTEXT NICHT GEFUNDEN !!!!" 

3590 RETURN 
3600 ' 

3610 ' *** Datei speichern *** 

3620 ' 

3630 OPENOUT "DATEI"+m$ 

3640 MODE 2:CLS:LOCATE 27,13:PRINT "DATEN 
WERDEN GESICHERT !!!":LOCATE 27,14:PRINT " 

__ II 

3650 FOR X=1 TO 1100 

3660 WRITE #9,butextS(x),datum$(x),betrag$ 
(x),gesamt(x) 

3670 NEXT 

3680 CLOSEOUT 

3690 OPENOUT "FESTBU" 

3700 FOR i=l TO 45 

3710 WRITE #9,p$(i),q$(i),r$(i),ra$(i),s$( 

i) 

3720 NEXT 

3730 CLOSEOUT 

3740 OPENOUT "kontonum" 

3750 WRITE #9,nummerS(1),nummerS(2),nummer 
$(3) ,nummer$(4) 

3760 CLOSEOUT 
3770 GOTO 2430 
3780 ' 

3790 ' *** Zahlenzuweisung fuer einzelne K 
onten *** 

3800 ' 

3810 fy=0:ff=l:dj=aa:dk=ab:aa=l:ab=llOO:GO 
TO 2830 

3820 aa=l:ab=500:GOTO 2430 
3830 aa=501:ab=700:GOTO 2430 
3840 aa=701:ab=9ÖO:GOTO 2430 
3850 aa=901:ab=1100:GOTO 2430 
3860 ' 

3870 ' *** Eintraege Loeschen *** 

3880 ' 

3890 MODE 2:CLS 

3900 LOCATE 29,2:PRINT"******************* 
***" 

3910 LOCATE 29,3:PRINT"* Eintraege loesche 
n *" 

3920 LOCATE 29,4:PRINT"******************* 
***» 

3930 LOCATE 7,6:INPUT "WELCHE EINTRAGSNUMM 
ER:", c 

3940 IF C=0 THEN 2430 

3950 IF c>1100 THEN LOCATE 29,6:PRINT " 

":GOTO 3930 

3960 LOCATE 49,6:PRINT "Wollen Sie die Ein 
tragung " 

3970 LOCATE 58,7:PRINT "(u)eberschreiben" 
3980 LOCATE 59,8:PRINT "oder (l)oeschen" 
3990 n$=INKEY$ 

4000 IF n$="u" THEN 4130 
4010 IF n$="l" THEN 4030 
4020 GOTO 3990 

4030 IF C=500 OR C=700 OR C=900 OR c=1100 
THEN 4110 

4040 IF c<501 THEN ab=500:GOTO 4080 ELSE 4 
050 

4050 IF c>500 AND c<701 THEN ab=700:GOTO 4 
080 ELSE 4060 

4060 IF c>700 AND c<901 THEN ab=900:GOTO 4 
080 ELSE 4070 

4070 IF c>900 AND c<1101 THEN ab=1100 
4080 FOR x=c TO ab:IF butextS((x)+l)>"" TH 
EN 4090 ELSE 4110 

4090 datum$(x)=datum$((x)+l):butext$(x)=bu 
text$((x)+l):betragS(x)=betrag$((x)+l):ges 
amt(x)=gesamt((x)+l) 

4100 NEXT x:GOTO 4120 

4110 datum$(x)="":butext$(x)="":betrag$(x) 
="":gesamt(x)=0 
4120 GOTO 3890 

Listing KONTOI BAS 


[4700] 

[469] 

[6298] 

[3620] 

[13315] 


[1540] 

[1844] 

[7408] 


[555] 

[117] 

[847] 

[117] 

[1008] 

[4943] 


[1016] 

[3485] 

[350] 

[902] 

[1018] 

[548] 

[2456] 

[350] 

[902] 

[1542] 

[2871] 

[902] 

[349] 

[117] 

[4134] 

[117] 

[3145] 

[1448] 

[1158] 

[2152] 

[1241] 

[117] 

[1876] 

[117] 

[1257] 

[1624] 

[3768] 

[2320] 

[3351] 

[1380] 

[2360] 

[2792] 

[2819] 

[1629] 

[1130] 

[1243] 

[1107] 

[475] 

[1928] 

[2217] 

[3299] 

[2984] 

[2516] 

[3111] 

[6770] 


[1025] 

[3603] 

[471] 


4130 LOCATE 42,12:PRINT".":LOCATE 2 

9,12:INPUT "Datum :",datum$(c):IF LE 

N(datum$(c))<>8 THEN LOCATE 29,12:PRINT SP 
C(30):GOTO 4130 

4140 LOCATE 42,14:PRINT". 

LOCATE 29,14:INPUT "Buchungstext:",but 
ext$(c):IF LEN(butext$(c))>20 THEN LOCATE 
29,14:PRINT SPC(37):GOTO 4140 
4150 LOCATE 29,18:PRINT"Bei Abzuegen bitte 
'-' angeben !" 

4160 LOCATE 42,16:PRINT".":LOCATE 

29,16:INPUT "Betrag :",betrag$(c) 

4170 bz$=MID$(RIGHTS(betragS(c),3),1,1):IF 
bz$="." THEN 4180 ELSE LOCATE 29,16:PRINT 
SPC(30):GOTO 4150 
4180 gesamt(c)=0 
4190 GOTO 3890 
4200 GOTO 3990 
4210 GOTO 3890 
4220 ' 

4230 ' *** ENDE PROGRAMM *** 

4240 ' 

4250 MODE 0:LOCATE 1,1:PRINT "Wirklich End 
e J/N ?" 

4260 bz$=INKEY$ 

4270 IF bz$="j" THEN 4300 
4280 IF bz$="n" THEN 2310 
4290 GOTO 4260 
4300 MODE 2:NEW 
4310 ' 

4320 '*** Konto drucken *** 

4330 ' 

4340 ZONE 2:gasamt=0:LOCATE 24,20:PRINT"Nu 
r (d)ieses oder (a)lle Konten" 

4341 LOCATE 24,21:PRINT"oder nur einen (M) 
onat" 

4350 n$=INKEY$ 

4360 IF n$="d" THEN 4390 

4370 IF n$="a" THEN aa=l:ab=l100:GOTO 4430 

4371 IF n$="m" THEN LOCATE 24,22:INPUT "We 
lchen Monat':",nf$:GOTO 4390 

4380 GOTO 4350 

4390 IF VAL(z$)=1 THEN aa=l:ab=500 
4400 IF VAL(z$)=2 THEN aa=501:ab=700 
4410 IF VAL(z$)=3 THEN aa=701:ab=900 
4420 IF VAL(z$)=4 THEN aa=901:ab=1100 
4430 PRINT#8:PRINT#8:PRINT#8:PRINT#8:PRINT 
#8,"KONTOAUSZUG VOM ";k$;".";1$;".";m$:IF 
n$="d" THEN 4440 ELSE PRINT#8," " 

4440 PRINT #8,"Konto Nr.: ";nummer$(VAL(zS 
)):PRINT #8 

4450 PRINT#8,"NR. DATUM BUCHUNGSTEXT 

BETRAG GESAMT 


[7611] 

[10295] 

[4953] 

[4068] 

[4986] 


[1063] 

[471] 

[475] 

[471] 

[117] 

[1462] 

[117] 

[2161] 

[198] 

[398] 

[944] 

[343] 

[963] 

[117] 

[1259] 

[117] 

[4681] 

[3572] 

[1130] 

[1092] 

[2818] 

[3231] 

[547] 

[1347] 

[2113] 

[2966] 

[2584] 

[8398] 


[3134] 

[5747] 


4460 PRINT#8, "=======================-== [454g] 


4470 11=0 

4480 FOR x=aa TO ab 

4481 IF VAL(nf$)>0 THEN 4482 ELSE 4490 

4482 IF INSTR(3,datum$(x),nf$)=0 THEN 4640 
ELSE 4490 

4490 11=11+1 

4500 IF x<10 THEN nc$=STR$(x)+" " 

4510 IF X>9 AND x<100 THEN nc$=STR$(x)+" 


[204] 

[942] 

[1590] 

[2457] 

[669] 

[1879] 

[2050] 


4520 IF X>99 AND x<1000 THEN nc$=STR$(x)+" [1594] 

4530 IF X>999 THEN nc$=STR$(x) [1475] 

4540 nd$ = " " :nd=LEN(nd$ [2729] 

)-LEN(butext$(x)) 

4550 nf=VAL(betrag$(x)) [1745] 

4560 IF butextS(x)="" THEN 4640 [795] 

4570 IF LEFTS(betragS(x),1)="-" THEN 4580 [2023] 

ELSE 4590 

4580 gasamt=gasamt-VAL(MID$(betragS(x),2)) [ 3669 ] 

:gesamt(x)=gasamt:GOTO 4600 

4590 gasamt=gasamt+VAL(betragS(x)):gesamt( [36881 
x)=gasamt 

4600 PRINT #8,nc$,datum$(x),butextS(x);SPC [6156] 
(nd)" ",DEC$(nf,"#######.##");" DM",DEC$(g 
esamt(x),"#######.##");" DM" 

4610 IF 11=60 THEN 4620 ELSE 4640 
4620 11=0:LOCATE 24,22:PRINT"Bitte Blatt w 
echsein !!!" 

4630 n$=INKEY$:IF n$=CHR$(13) THEN 4640 EL 
SE 4630 
4640 NEXT 
4650 GOTO 2400 
4660 7 

4670 '*** Ruecksprung Festabbuchung **** 

4690 RUN "konto.bas" 


[1242] 

[5297] 

[2015] 

[350] 

[347] 

[117] 

[2540] 

[117] 

[763] 


üsting KONTOI BAS 
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ni:«PKSBAiK 


rrm‘n*fUrtam dt“ ln 
t.JuniMt 


Ohne Moos nix los 


man weiß dank STEUER klipp und klar 
über das jeweilige Brutto-Nelto-Ver¬ 
hältnis Bescheid. 


Lohn- und Gehaltsberechnung 
mit STEUER 

Als Arbeitnehmer lebt man nicht von der Hand in den Mund, sondern 
erhält für die geleistete Arbeit Lohn- oder Gehaltszahlungen. Dabei weiß 
man aber oft nicht genau, wie sich eigentlich die Abrechnungen des 
Arbeitgebers zusammensetzen. 


Das hier vorzustellende Programm 
STEUER eignet sich hervorragend da¬ 
zu, die jeweiligen Lohn- oder Gehalts¬ 
abrechnungen auch mal selbst kontrol¬ 
lieren zu können - und zwar auf den 
Pfennig genau. Schließlich bewahrt das 
Zeitalter der EDV die Firmenbuchhal¬ 
tung des Arbeitgebers auch nicht vor 
Fehlern. Zum anderen ist es sicher nicht 
verkehrt, wenn man über die "Zusam¬ 
mensetzung" des eigenen Einkommens 
genau Bescheid weiß. 

Wer sich aber schon einmal die Mühe 
gemacht hat, hinter die ganzen Berech- 
nungsmodalitäten zu kommen, hat sich 


bestimmt nur zu oft ganz schön die Haa¬ 
re gerauft. Das liegt daran, daß unser 
Vater Staat alles am liebsten kompliziert 
macht - eine einfache Regelung, bei¬ 
spielsweise in Lohnsteuerfragen, wäre 
zwar angebracht, ließe wahrscheinlich 
aber den"Mythos, der über allen Behör¬ 
denprodukten weht, verblassen. 

STEUER hilft diesem Übel dahinge¬ 
hend ab, daß man mit etwas einfacher 
Vorarbeit über die eigene Lohn- und Ge¬ 
haltssituation auf dem laufenden bleibt. 
Das ist vor allem dann von Vorteil, wenn 
man wegen einer Lohn- oder Gehaltser¬ 
höhung im Personalbüro vorspricht - 


STEUER schafft Klarheit 
beim Gehaltsstreifen 

Das Programm basiert auf einem rech¬ 
nerischen Leitfaden, den jedermann 
beim Bundesfinanzministerium oder 
dem Bund der Steuerzahler anfordern 
kann. 

STEUER ermöglicht jedermann/-frau 
mit den Steuerklassen 1 bis VI (Verhei¬ 
ratete, Ledige, mit und ohne Kindern 
oder mit Steuerfreibeträgen), die Lohn¬ 
steuer und andere Sozialabgaben nach¬ 
zurechnen. Für die Arbeitslosen- und 
Rentenversicherung gilt für dieses Jahr 
eine Beitragsbemessungsgrenze von 
6500,- DM brutto, was bedeutet, clafJ 
man bei einem Einkommen von 6500- 
DM oder mehr den Höchstsatz bezahlt. 
Für die Rentenversicherung ist der Ar¬ 
beitnehmeranteil 9,35 % (Höchstsatz al¬ 
so 607,75 DM). Für die Arbeitslosen¬ 
versicherung ist der Arbeilnchmer-An- 
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teil 2,15 % (Höchstsatz also 139,75 
DM). Von der bereits erwähnten Bei- 
tragsbemessungsgrenze (6500- DM) 
werden 75 % als Beitragsbemessungs¬ 
grenze für die Krankenkassen genom¬ 
men. Wer also über 4875 - DM zu ver¬ 
steuerndes Einkommen liegt, zahlt auch 
den Höchstsatz für die Krankenversi¬ 
cherung. Da die Beitragssätze von Kas¬ 
se zu Kasse verschieden sind, gibt es 
hier kein einheitliches Rechenbeispiel, 
so daß man sich über den Prozentsatz 
bei der Krankenkasse erkundigen muß. 
Auch regional gibt es Unterschiede - 
beispielsweise verlangen die AOK, IKK 
oder BKK in Stuttgart, Frankfurt oder 
Hamburg unterschiedliche Beiträge. 


STEUER - 
Lohn- und 
Gehaltsabrechnungen 
werden verständlicher 



SIEUERPflOGRRNH 

xxxmmmmrcircxitmitm 

EINGABEN: AUSGABEN: 


IteicJi* BerecJimms wird ga/uenscht ? 
BRUTTO »» NETTO (J/n) j 


Hie h&ch ist Ihr 
KrankenkassenUeitrag in X 
BeligionszugriiofrisMit (yn> 


SteuerpfJ. Brutto 


: mm 


Steuerklasss It.Karte 


Hniani oer ninaer ; 

Sonstige Freibetraege nonatl. i 0 


aorisug? ireioesraege nonatl. : ö 
Rentenversich.Pflichtig (j/n) : j 

ausdrucJc ^n? | 


Unterschiedliche Berechnungs¬ 
formeln - kein Problem für 
STEUER 


Diese regionalen Unterschiede gibt es 
genauso bei der Kirchensteuer, die, so 
man eine steuerpflichtige Religionszu¬ 
gehörigkeit hat, auch berechnet wird. In 
Bayern, Baden-Württemberg, Bremen 
und Hamburg werden 8 % Kirchensteu¬ 
er verlangt. In allen anderen "alten Bun¬ 
desländern" sind es 9 Prozent. Der Pro¬ 
zentsatz bezieht sich auf die zu zahlende 
Lohnsteuer. In den neuen Bundeslän¬ 
dern gibt es noch Zwischenlösungen, 
die davon betroffenen Leser sollten sich 
hier beim Finanzamt erkundigen. Auch 
Kinder werden bei der Kirchensteuer 
berücksichtigt, und der 8-%- bezie¬ 
hungsweise 9-%-Satz ist dann hinfällig. 

Die Beitragssätze für Krankenkasse und 
Kirchensteuer sollten Sie also bei den 
zuständigen Stellen erfragen, weil diese 
Angaben für die Berechnung mit 
STEUER dringend notwendig sind. Die 
genannten Bemessungsgrenzen ändern 
sich leider jährlich, so daß jedes Jahr ei¬ 
ne Programmanpassung notwendig ist, 
die nachfolgend noch beschrieben wird. 


Als Eingabewerte werden benötigt: 

Steuerpflichtiges Brutto: steuerpflichti¬ 
ger Arbeitslohn vor Abzug der Freibe¬ 
träge 

Steuerklasse: laut Lohnsteuerkarte 

Krankenkassenbeitrag: in %, zu eifra¬ 
gen bei Ihrer Krankenkasse (die Höchst¬ 
beträge sind bereits berücksichtigt) 

Anzahl der Kinder , die auf der Lohn¬ 
steuerkarte eingetragen sind 

Sonstige Freibeträge: laut Lohnsteuer¬ 
karte (hier den monatlichen Freibetrag 
in DM eingeben) 

Religionszugehörigkeit: mit <J> oder 
<N> beantworten 

Kirchensteuersatz: in % angeben (we¬ 
gen regionaler Unterschiede), falls man 
kirchensteuerpflichtig ist (bei <J>) 

Rentenversicherung: Sind Sie renten¬ 
versicherungspflichtig? Wenn nicht, 
müssen Sie <N> angeben (zum Beispiel 
Beamte), da bei nicht-rentenversiche¬ 
rungspflichtigen Lohnsteuerzahlern die 
Vorsorgepauschaleberechnung anders 
ist. 


Die Programmbedienum 


ist einfach 


Auch die jährlichen 
Anpassungen sind möglich 


Das eigentlich Feine am Programm 
STEUER ist aber, daß man beispiels¬ 
weise für Lohn- oder Gehaltsverhand¬ 
lungen die gewünschte Nettosumme 
eingeben und daraus dann anhand des 
eigenen steuerlichen Umfeldes das dazu 
gehörende Brutto mit allen notwendi¬ 
gen Abgaben berechnen und ausdruk- 
ken lassen kann. STEUER braucht für 
diese Berechnung etwa zehn Sekunden, 
die zu warten sich aber lohnt. 


STEUER ist programmtechnisch wie 
folgt aufgebaul: In den Zeilen 10 bis 310 
wird der Bildschirm eingestellt, das 
heißt, Fenster und Farben werden fest¬ 
gelegt. In den Zeilen 370 bis 560 wer¬ 
den die Eingabewerte unter verschiede¬ 
nen Variablen gespeichert. In Zeile 660 
werden dann zunächst die sonstigen 
monatlichen Freibeträge (wf ) vom Mo¬ 
natslohn (r4) abgezogen. 

Die bei der Berechnung der Anfangsbe¬ 
träge des Arbeitslohnes, außer Ansatz 
bleibenden Bruchteile eines Pfennigs, 
müssen nun dem Arbeitslohn vor der 


Hochrechnung auf einen Jahreslohn zu¬ 
gerechnet werden. Hier werden pau¬ 
schal 67 Pfennnig addiert. Dann wird 
hochgerechnet und der Betrag auf ganze 
Pfennige abgerundet. Diese Verfahrens¬ 
weise erfolgt deshalb, da alle im folgen¬ 
den abzuziehenden Freibeträge und 
Pauschalen Jahreswerte sind. 

In den Zeilen 740 und 750 wird der sich 
so ergebende Jahreslohn auf einen 
durch 54 ohne Rest teilbaren Wert abge¬ 
rundet und die Unter- und Obergrenze 
der Stufe in der Jahreslohnsteuertabelle 
errechnet. Die Obergrenze ro wird auch 
später noch zur Berechnung der Vorsor¬ 
gepauschale sowie die Untergrenze ru 
zur Errechnung des zu versteuernden 
Einkommens zv benötigt. 

In den Zeilen 890 bis 920 werden ent¬ 
sprechend der Lohnsteuerklasse und der 
angegebenen Kinder die Pausch- und 
Freibeträge festgelegt. Hier sei der Ar¬ 
beitnehmerpauschbetrag erwähnt, wo¬ 
bei es sich um die Werbungskostenpau¬ 
schale in Höhe von 2000,- DM handelt, 
die seit 01.01.1990 pauschal vom zu 
versteuernden Einkommen abgezogen 
wird. 

So bekommt zum Beispiel ein Arbeit¬ 
nehmer mit der Steuerklasse I automa¬ 
tisch den Arbeitnehmerpauschbetrag 
von 2000,- DM und den Sonderausga¬ 
benpauschbetrag von 108,- DM abge¬ 
zogen. Hinzu kommen die Abzüge für 
Kinder, falls vorhanden, pro Kind 
3024 - DM (siehe Zeile 880). 


Das Programm wurde nach 


steuerlichen Richtlinien erstellt 


Auf die Berechnung der Vorsorgepau¬ 
schale in den Zeilen 1000 bis 1140 muß 
nicht genauer eingegangen werden. Er¬ 
wähnt sei hier nur die Abfrage nach dem 
Zustand von rv$ (Rentenversicherungs- 
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pflicht) in Zeile 1000, da die Berech¬ 
nung der Vorsorge pauschale ab hier in 
verschiedene Richtungen läuft (siehe 
Zeile 1000 bis 1040). In Zeile 1110 wird 
die Vorsorgepauschale auf einen durch 
54 ohne Rest teilbaren Wert gebracht. 

In Zeile 1150 werden von dem zu ver¬ 
steuernden Einkommen beziehungs¬ 
weise dem unteren Tabellcnwert ru die 
festen Tabellenfreibeträgc (wie in Zei¬ 
len 890 bis 920 festgelegt) und die Vor- 
sorgepauschalc abgezogen. Danach er¬ 
folgt wieder die Rundung auf einen 
durch 54 ohne Rest teilbaren Wert. 

Dann erst wird die eigentliche Lohn¬ 
steuer aus dem Jahreswert berechnet. 
Dabei sollte man sich die Frage nach der 
Höhe der Steuerklasse in Zeile 1160 an- 
sehen. Denn bei Steuerklasse V und VI 
ist die Lohnsteuerberechnung wesent¬ 
lich aufwendiger, wie man in den Zeilen 
1190 bis 1410 feststellen kann. 

Bei den Steuerklassen I, II, III und IV 
wird hier nur einmal das Unterpro¬ 
gramm von Zeile 1220 bis 1340 durch¬ 
laufen. Ab Zeile 1420 treffen die beiden 
Zweige wieder zusammen, daß heißt, ab 
hier werden wieder alle Steuerklassen 
gleich berechnet. 

Es geht jetzt nur darum, die inzwischen 
ermittelte Jahreslohnsteuer in eine Mo¬ 
natslohnsteuer umzurechnen. Dazu 
wird in Zeile 1420 die Lohnsteuer in 
Pfennige umgerechnet. Danach wird 


der Jahresweit jw durch 12 geteilt, um 
auf die Monatswerte zu kommen. Diese 
Rechnung wird jedoch zweimal ausge¬ 
führt und das Ergebnis einmal auf- und 
einmal abgerundet. Der abgerundete 
Wert wird nun in Zeile 1450 mit 0,01 
multipliziert (um auf DM zu kommen) 
und unter der Variablen " 11 " abgelegt. 
Die Variable " 11 " entspricht der Mo¬ 
natslohnsteuer. 

Die Berechnung der Kirchensteuer ohne 
Kinder in Zeile 1590 erfolgt prozentual 
von der Lohnsteuer. Mit Kindern 
kommt hier noch ein "Kinderfreibetrag" 
für die Kirchensteuer zum Tragen. 

ln den Zeilen 1460 bis 1480 werden die 
Sozialversicherungsbeiträge prozentual 
aus dem zu versteuernden Monatsein¬ 
kommen errechnet. Von dem, was der 
streßgeplagte Arbeiter im Schweiße sei¬ 
nes Angesichts dem Arbeitsmarkt abrin¬ 
gen konnte (r4), werden ihm nun in 
Zeile 1490 die Sozialversicherungsbei- 
träge, Lohn- und Kirchensteuer abgezo¬ 
gen und die kläglichen Überreste als Va¬ 
riable "Netto" gespeichert. 

Die Netto-Brutto-Berechnung ist über 
eine For-Next-Schleife (Zeile 630 und 
1730) gelöst, da eine solche Berech¬ 
nung nicht anders möglich ist - hier ist 
etwas Geduld notwendig. 

ln den Zeilen 1790 bis 2260 werden der 
Bildschirm für die Ausgaben eingestellt 
und die Berechnungen und Eingaben 


ausgedruckt. In den Zeilen 2290 bis 
2980 werden das Druckermenü vorge¬ 
stellt und die Aus- und Eingabewerte für 
den Ausdruck zusammengestellt. 

Jahresanpassung 

Da sich, wie erwähnt, die Berechnung 
der Lohnsteuern, Krankenkassenbeiträ¬ 
ge und so weiter jährlich ändert, muß 
STEUER auch dementsprechend ange¬ 
paßt werden. 

In den bereits erwähnten Zeilen 1460, 
1470 und 1480 werden die Prozente für 
Kranken-, Renten- und Arbeitslosen¬ 
versicherung jährlich angepaßt sowie 
auch die Beitragsbemessunggrenze. 

Beispielsweise muß in Zeile 1470 dann 
der Wert 0,0935 (Rentenversicherung) 
ab dem 1. April in 0,0855 geändert wer¬ 
den - was man ruhig tun sollte, da die 
Änderungen aktuell sind (bei Erschei¬ 
nen dieser Ausgabe) und man so gleich¬ 
zeitig das Ändern üben kann. 

(Heinz-Jürgen Reinstädler/tk) 


Hier können Sie Auskünfte einholen: 

Bundesminister der Finanzen 

Postfach 

5300 Bonn 

Tel.: 0228/6820 

Bund der Steuerzahler e.V. 

Bahnhofsiraße 35 

6200 Wiesbaden 

Tel.: 0611/371052 


für 464-664-6128 



>*********************************** 
'******** ★STEUERPROGRAMM*' *********** 


HEINZ-JUERGEN REINSTAEDLER 


(C) 1 / 1991 


10 
20 

30 ' 

40 ************ VON ************* 

50 
60 
70 
80 
90 
100 
110 ' 

1.20 *********************************** 

130 '********************************** 

140 CLEAR:CLS 
150 :MODE 2 
160 PAPER 0:PEN 1 
170 WINDOW #1,47,80,6,25 
180 PAPER #1,1 
190 PEN #1,2 

200 LOCATE 25,1:PRINT "STEUERPROG 
RAMM" 

210 LOCATE 25,2:PRINT "******************* 
*********" 

220 LOCATE 2,4:PRINT "EINGABEN : " 

230 LOCATE 2,5:PRINT "================= " 

240 LOCATE 51,4:PRINT "AUSGABEN : " 

250 LOCATE 51,5:PRINT "================== 

tl 

260 LOCATE 2,6:PRINT "Welche Berechnung wi [5242] 
rd gewuenscht ?":GOTO 380 

270 WINDOW #2,2,38,7,7 [1102] 

280 INK 1,24 [58] 

290 PAPER #2,1 [1083] 

300 PEN #2,2 [524] 

310 CLS #2 [372] 

320 ' [117] 

Listing STEUER BAS 


[1460] 

[2537] 

[117] 

[905] 

[117] 

[2309] 

[117] 

[117] 

[312] 

[117] 

[117] 

[1391] 

[1391] 

[435] 

[814] 

[965] 

[1508] 

[1311] 

[472] 

[3472] 

[1981] 

[1574] 

[1991] 

[2577] 

[3035] 


330 ' 

340 '************************************* 
********* EINGABEMENUE************** 

350 ' 

360 ' 

370 LOCATE 2,7:PRINT #2,"Sie haben keine E 
INGABE gemacht !!" 

380 LOCATE 2,8:INPUT "BRUTTO >>>> NETTO 
(j/n) ",bru$ 

390 IF bru$ = "j" OR bruS = "J" GOTO 420 
400 LOCATE 2,9: INPUT "NETTO >»> BRUTTO 
(j/n) ",net$ 

410 IF bru$ = "" AND net$ = "" GOTO 270 
420 WINDOW #2,2,38,7,7:PAPER #2,0:PEN #2,1 
:CLS #2 

430 LOCATE 2,11:PRINT "Wie hoch ist Ihr " 
440 LOCATE 2,12:INPUT "Krankenkassenbeitra 
g in % : ",kkb 

450 LOCATE 2,13:INPUT "Religionszugehoeng 
keit (j/n) : ",r$ 

460 IF r$ = "j" OR r$ = "J" THEN LOCATE 2, 
14:INPUT "Wie hoch ist Ihr Beitrag in % : 

" / rgb 

470 IF net$ = "j" OR net$ = "J" GOTO 500 
480 LOCATE 2,15:INPUT"Steuerpf1. Brutto 
: ",r4 

490 IF bru$ = "j" OR bru$ = "J" THEN GOTO 
530 

500 LOCATE 2,16:INPUT "Gewuenschtes Netto 
: " ,r4 

510 x = r4 
520 netto2 = r4 

530 LOCATE 2,18:INPUT "Steuerklasse lt.Ka 
rte : ",sk 

540 LOCATE 2,20:INPUT "Anzahl der Kinder 
: " ,kf 

550 LOCATE 2,21:INPUT "Sonstige Freibetrae 
ge monatl. : ",wf . , 

560 LOCATE 2,22:INPUT "Rentenversich.Pflic 
htig (j/n) : ",rv$ 

Listing STEUER.BAS_ 


[117] 

[3458] 

[117] 

[117] 

[2950] 

[2486] 

[1154] 

[3549] 

[1334] 

[2846] 

[2891] 

[6344] 

[5130] 

[6160] 


[1668] 

[3742] 

[1558] 

[2656] 

[582] 

[1178] 

[4858] 

[4403] 

[4772] 

[1663] 


1 
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570 IF bru$ = "j" OR bru$ = "J" THEN GOTO [13401 
660 

580 IF net$ = "j" OR net$ = "J" THEN JLOCAT 


E 10,51:PRINT #1," *** BITTE 

*** *** W A R T E N *** 

»I 

590 xl = x*l.15:yl = x*2 
600 FOR i = xl TO yl STEP 10 
610 ' 

620 '**************ERRECHNEN DES MASSGEBLI 
CHEN JAHRESLOHNES,OBER-UND UNTERGRENZE DER 
ENTSPRECHENDEN STUFE IN DER JAHRESLOHNSTE 
UERT^BELL* *********************** 

630 ' 

640 r4 = i 
650 ' 

660 rl=r4-wf:zr=(rl+0.0067)*12:zr= INT (zr 

* 100 )* 0.01 

670 ' 

680 ' 

690 ' 

700 '******** ABRUNDUNG AUF EINEN DURCH 54 
OHEN REST TEILBAREN BETRAG ********* 

710 ' 

720 ' 

730 ' 

740 rl = zr-2:rl = rl/54:rl = INT (rl):rl 
= rl*54 

750 ru=rl+2:ro=ru+53 
760 ' 

770 ' 

780 ' 

790 '************** ERRECHNEN DES FREIBETR 
AGES FUER KINDER GEMAESS STEUERKLASSE 


[4410] 


[575] 

[616] 

[117] 

[10772] 


[117] 

[103] 

[117] 

[3345] 

[117] 

[117] 

[117] 

[1913] 

[117] 

[117] 

[117] 

[3485] 

[1295] 

[117] 

[117] 

[117] 

[5842] 


******************** 

800 ' 

810 ' 

820 ' 

830 IF Sk = 1 GOTO 880 

840 IF sk = 2 GOTO 890 

850 IF sk = 3 GOTO 900 

860 IF sk = 4 GOTO 910 

870 IF sk = 5 GOTO 920 

880 fb=2108+kf*3024:kz=l:GOTO 1000 

890 fb=7724+kf*3024:kz=l:GOTO 1000 

900 fb=2216+kf*3024:kz=2:GOTO 1000 

910 fb=2108+kf*1512:kz=l:GOTO 1000 

920 fb=2000:kz=l:LET vp=0:GOTO 1150 

930 ' 

940 ' 

950 ' 

960 '**************** ERRECHNEN DER VORSO 
RGEPAUSCHALE UND ABRUNDUNG AUF EINEN DURCH 
54 OHNE REST TEILBAREN BETRAG 

******************* 


1000 vl=2000*kz:v2=2340*kz:v3=1170*kz:v4=r 

0*0.I8:v6=4000*kz:IF rv$ = "j" OR rv$ = "J 

" THEN GOTO 1040 

1010 IF V4 >vl THEN GOTO 1030 

1020 vp = v4: GOTO 1140 

1030 vp = vl:GOTO 1140 

1040 v6=v6-ro*0.12:IF V6 > 0 THEN GOTO 106 
0 

1050 v6 = 0 

1060 IF V4 > v6 THEN GOTO 1080 
1070 vp = v4:GOTO 1140 

1080 vp = V6 

1090 v5 = v4-v6: IF v5 > v2 THEN GOTO 1110 
1100 vp = vp+v5: GOTO 1140 
1110 vp = vp+v2:v5 = (v5-v2)*0.5:v5 = INT 
(v5*100+0.9)*0.01:IF v5 > v3 THEN GOTO 113 
0 

1120 vp = vp+v5:GOTO 1140 
1130 vp = vp+v3 

1140 vp = vp/54:vp = INT (vp):vp = vp*54 

1150 zv = ru-fb-vp: zv = zv/kz: zv = zv/54 

: zv = INT (zv):x = zv*54 

1160 ZX = ZV*54: IF Sk > 4 THEN GOTO 1190 

1170 GOSUB 1220 

1180 GOTO 1420 

1190 IF zv > 60048 THEN LET zv = 60048:zv 

= ZX 

1200 x = X*1.25:GOSUB 1220 
1210 GOTO 1350 

1220 IF X < 8154 THEN LET st = x*0.19-1017 
:GOTO 1340 
1230 ' 

1240 ' 

1250 ' 

1260 '************************************ 
****************************************** 


[117] 

[117] 

[117] 

[630] 

[759] 

[704] 

[320] 

[713] 

[2137] 

[1854] 

[1988] 

[1660] 

[1716] 

[117] 

[117] 

[117] 

[6622] 


[U7] 

[117] 

[117] 

[5368] 


[1993] 
[1294] 
[1468] 
[29' r 

[409] 

[1992] 

[1294] 

[480] 

[2006] 

[709] 

[3786] 


[709] 

[318] 

[1508] 

[4922] 

[2875] 

[871] 

[399] 

[2516] 

[1314] 

[460] 

[2321] 

[117] 

[117] 

[117] 

[8377] 


***** ERMITTLUNG MEHRERER ZWISCHENWERTE M 
IT 3,DANN 5 DEZIMALSTELLEN *************** 
*********************************** 

1270 ' 

1280 ' 

1290 ' 

1300 y = (x-8100)*0.0001 

1310 rw = y*151.94:rw = INT (rw*10000)*0.0 
001 

1320 rw = rw+1900:rw = rw*y:rw = INT (rw*l 
0000)*0.0001 

1330 st = rw+472:st = INT (st) 

1340 st = st*kz:RETURN 

1350 si = st*2 

1360 x = zx*0.75:GOSUB 1220 

1370 su = st*2 

1380 DI = si-su 

1390 mi = zx*0.19:mi = INT mi:IF mi > DI L 
ET st=mi:GOTO 1410 
1400 st = DI 

1410 IF ZV > 60048 THEN LET st = st+(zv-60 

048)*0.53:st = INT st 

1420 jw = st * 100 

1430 al = jw/12:al = INT (al) 

1440 a2 = jw/12:a2 = INT (a2+0.5) 

1450 11 = al*0.01 

1460 kv = r4*0.01*(kkb*0.5):IF kV > 48.75* 
kkb*0.5 THEN LET kV = 48.75*kkb*0.5 

1470 rv = r4* 0.0935:IF rv > 6500*0.0935 T 
HEN LET kv = 6500*0.0935:IF rv$ = "n" OR r 
v$ = "N" THEN LET rv = 0 

1471 IF rv$ = "n" OR rv$ = "N" THEN LET rv 
= 0 

1480 av = r4* 0.0215:IF av > 6500*0.0215 T 
HEN LET av = 6500*0.0215 

1490 IF r$ = "j" OR r$ = "J" THEN GOTO 151 
0 

1500 netto = r4-rv-kv-av-ll-bk:GOTO 1730 
1510 IF kf > 0 THEN GOTO 1670 
1520 ' 

1530 ' 

1540 ' 

1550 '************** BERECHNUNG DER KIRCHE 
NSTEUER >»OHNE KINDER«< 

1560 ' 

1570 ' 

1580 ' 

1590 bk = ll*0.01*rgb:GOTO 1500 
1600 ' 

1610 ' 

1620 ' 

1630 '************** BERECHNUNG DER KIRCHE 
NSTEUER »>MIT KINDERN<<< 

1640 ' 

1650 ' 

1660 ' 

1670 jw = kf*30000 

1680 al = jw/12:al = al* 0.0008 

1690 ls = ll*0.01*rqb 

1700 bk = ls-al 

1710 GOTO 1500 

1720 IF bru$ = "j" OR bru$ = "J" THEN GOTO 
1790 

1730 IF netto > netto2 GOTO 1770 ELSE NEX 
T i 
1740 ' 

1750 ' 

1760 ' 

1770 '************************************ 
****************************************** 
** Ausagbe der Berechnungen 
1780 ' 

1790 WINDOW #1,47,80,6,25 

1800 INK 1,24 

1810 PAPER #1,1 

1820 PEN #1,2 

1830 CLS#1 

1840 ' 

1850 ' 

1860 IF bru$ = "j" OR bru$ = " THEN GOTO 

1880 

1870 PRINT #1," Erfordert. Brutto ";USING 
"######.## DM";r4:GOTO 1890 
1880 PRINT #1," Steuerpfl.Brutto ";USING " 
#######.## DM";r4 

1890 PRINT #1," Lohnsteuer ";USING " 

#######.## DM";11 

1900 PRINT #1," Krank.K.-Beitrag ";USING " 
#######.## DM";kv 

1910 PRINT #1," Rentenvers. ";USING " 

#######.## DM";rv 

1920 PRINT #1," Arbeitslos.Vers. ";USING " 
#######.## DM";av 

1930 PRINT #1," Kirchensteuer ";USING " 
#######.## DM";bk 


[117] 

[117] 

[117] 

[1234] 

[2109] 

[2268] 

[1459] 

[1456] 

[382] 

[1528] 

[255] 

[652] 

[3004] 

[252] 

[4758] 

[259] 

[958] 

[1903] 

[264] 

[5322] 

[6352] 


[1822] 

[3378] 

[2429] 

[2766] 

[1168] 

[117] 

[117] 

[117] 

[2991] 

[117] 

[117] 

[117] 

[ 1122 ] 

[117] 

[117] 

[117] 

[2693] 

[117] 

[117] 

[117] 

[491] 

[1213] 

[1278] 

[284] 

[399] 

[1594] 

[1274] 

[117] 

[117] 

[117] 

[4385] 


[117] 

[1508] 

[58] 

[1311] 

[472] 

[373] 

[117] 

[117] 

[1592] 

[3054] 

[3884] 


" ;USING " [3618] 


[4195] 


";USING " [4382] 


[3848] 


";USING " [2467] 


Lislmg STEUER.BAS 


Lisüng STEUER BAS 
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******************** 


Ausgabe der Eingaben 

1980 ' 

1990 ' 

2000 ' 

2010 ' 

2020 PRINT #1," " 

2030 PRINT #1," " 

2040 PRINT #1," " 

2050 PRINT #1," Steuerklasse ";s 

2060 PRINT #1," Krankenkassensatz";USING " 

#####.## %";kkb 

2070 IF kf >0 THEN PRINT #1," Anzahl der K 
inder ";kf 

2080 IF wf >0 THEN PRINT #1," Andere Freib 
etr. ";USING "######.## DM";wf 
2090 IF r$ = "j" OR r$ = "J" THEN PRINT # 
1," Religionszugeh. "UPPERS(r$) 

2100 IF r$ = "j" OR r$ = "J" THEN PRINT # 
1," Kirchensteuersatz ";USING "#####.## 

%" ;rgb 

2110 PRINT #1," Rentenvers.Pf1. "U 

PPERS(rvS) 

2120 PRINT #1," " 

2130 PRINT #1," " 

2140 IF bru$="j"OR bru$="J"THEN GOTO 2170 
2150 PRINTfl," GEFORDERTES NETTO";USING"## 
#####.## DM";netto2 

2160 IF net$="j"OR net$="J"THEN GOTO 2190 
2170 PRINT#1," NETTO ";USING"## 

#####.## DM";netto 

2180 IF bru$="j"OR bru$="J"THEN GOTO 2220 
2190 PRINT #1," GESUCHTES BRUTTO ";USING " 
#######.## DM";r4 
2200 ' 

2210 ' 

2220 LOCATE 2,24:INPUT"ausdruck j/n";ausdr 

$ 

2230 IF ausdrS = "j" OR ausdrS = "J" THEN 
GOTO 2290 

2240 LOCATE 2,25:INPUT "Noch eine Berechnu 
ng <j/n> ",noch$ 

2250 IF noch$ = "j" OR noch$ = "J" THEN GO 
TO 140 

2260 MODE 1:CLEAR :CLS:CLS#0:CLSf1:END 
2270 '************************** DRUCKME 
NUE 
2280 ' 

2290 CLS:CLS#1:CLS#0:CLS#2 
2300 WINDOW #2,1,80,1,25 

2310 PRINT #2,"":PRINT #2,"":PRINT #2,"":P 
RINT #2,"" 

2320 PRINT #2,"" 

2330 PRINT #2," DRUCK 

M E N U E " 

2340 PRINT #2,"":PRINT #2,"":PRINT #2,"":P 
RINT $2 / ** ** 

2350 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 1 ] ";CHR$(24);" - 

Engschrift" 

2360 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 2 ] ";CHR$(24);" - 

Normalschrift" 

2370 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 3 ] ";CHR$(24);" - 

Schoenschrift (NLQ) ein" 

2380 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 4 ] ";CHR$(24);" - 

Schoenschrift (NLQ) aus" 

2390 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 5 ] ";CHR$(24);" - 

Doppelanschlag 

2400 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 6 ] ";CHR$(24);" - 

Super Kleinschrift" 

2410 PRINT #2:PRINT #2," ";CHR$( 

24);" [ 7 ] ";CHR$(24);" - 

Zeilenabstand 1/8"" 

2420 dr$=INKEY$:IF dr$="" THEN 2420 
2430 IF dr$="1" THEN PRINT #8,CHR$(15); 
2440 IF dr$="2" THEN PRINT #8,CHR$(18); 
2450 IF dr$="3" THEN PRINT #8,CHR$(27)+CHR 
$(73)+CHR$(3); 

2460 IF dr$="4" THEN PRINT #8,CHRS(27)+CHR 
247 0^IF H dr$ = "5" THEN PRINT #8,CHRS(27)+CHR 
2480^ dr$ = "6" THEN PRINT #8, CHR$ ( 27 ) +CHR 


[117] 

[117] 

[117] 

[2917] 


[117] 

[117] 

[117] 

[117] 

[702] 

[702] 

[702] 

[2757] 

[3961] 

[1893] 

[2750] 

[5525] 

[4255] 


[3834] 

[702] 

[702] 

[1662] 

[3536] 

[1229] 

[2695] 

[1652] 

[3224] 

[117] 

[117] 

[2327] 

[2796] 


[2715] 

[2964] 

[1207] 

[117] 

[533] 

[1093] 

[2805] 

[467] 

[1972] 

[2805] 


$ (83 ) +CHRS (0 ),' 
2490 IF dr$="7" 
$(48); 

2500 CLS 

Listing STEUER.BAS 


";CHR$( [5550] 


";CHRS( [4050] 


; CHRS( [4814] 


; CHRS( [4477] 


;CHR$( [4981] 


;CHRS( [6016] 


[4147] 


[ 1212 ] 

[1820] 

[1925] 

[2945] 

[2785] 


[2346] 


THEN PRINT #8,CHRS(27)+CHR [2876] 


2510 ' [H7] 

2520 ' [117] 

2530 ' [117] 

2540 ***************************** DRUCKER [2334] 

AUSGABE 

2550 PRINT #8,"=========================== [ 4468 3 

2560 PRINT #8," S T E U E R P [4056] 

R O G R A M M 

2570 PRINT #8,"=========================== l 4468 l 

2580 PRINT #8,"" [546] 

2590 PRINT #8,"" [546] 

2600 PRINT #8,"A U S G A B E W E R T E :" [1604] 

2610 PRINT #8,"-" [1860] 

2620 PRINT #8,"" [546] 

2630 PRINT #8,"" [546] 

2640 PRINT #8,"" [546] 

2650 IF net$ = "j" OR net$ = "J" THEN GOTO [1424] 

2690 

2660 IF r4 > 0 THEN PRINT #8,"Steuerpf1.Br [5276] 
utto ";USING "## 

#####.## DM";r4 

2670 IF 11 > 0 THEN PRINT #8,"Lohnsteuer [3259] 

";USING "## 

#####.## DM";11 

2680 IF bru$ = "j" OR bru$ = "J" THEN GOTO [1459] 
2710 

2690 IF r4 > 0 THEN PRINT #8,"Gesuchtes N [4563] 
etto ";USING "## 

#####.## DM";netto2 

2700 IF 11 > 0 THEN PRINT #8,"Lohnsteuer [3259] 

";USING "## 

#####.## DM"; 11 „ , , 

2710 IF kv > 0 THEN PRINT #8,"Krankenkasse [4514] 
nbeitrag ";USING "## 

#####.## DM";kv 

2720 IF rv > 0 THEN PRINT #8,"Rentenversic [5289] 
herungsbeitrag ";USING "## 

#####.## DM";rv 

2730 IF av > 0 THEN PRINT #8,"Arbeitslosen [4677] 
vers.Beitrag ";USING "## 

#####.## DM"; av ... 

2740 IF bk > 0 THEN PRINT #8,"Kirchensteue [4724] 
r ";USING "## 

#####.## DM";bk 

2750 PRINT #8,"" [546] 

2760 PRINT #8,"" [546] 

2770 PRINT #8,"E I N G A B E WERTE:" [1859] 

2780 PRINT #8,"-" [1976] 

2790 PRINT #8,"" [546] 

2800 PRINT #8,"" [546] 

2810 PRINT #8,"" [546] 

2820 IF nets = "j" OR net$ = "J" THEN GOTO [1297] 

2850 

2830 IF r4 > 0 THEN PRINT #8,"Steuerpf1.Br [5276] 
Utto ";USING "## 

#####.## DM";r4 

2840 IF bru$ = "j" OR bru$ = "J" THEN GOTO [1572] 
2860 

2850 IF r4 > 0 THEN PRINT #8,"Gesuchtes Ne [4050] 
tto ";USING "## 

#####.## DM";netto2 

2860 IF sk > 0 THEN PRINT #8,"Steuerklasse [4019] 

";USING "## 

#####.##";sk 

2870 IF kkb > 0 THEN PRINT #8,"Krankenkass [5381] 
ensatz ";USING "#### 

###.## %";kkb 

2880 IF kf > 0 THEN PRINT #8,"Anzahl der K [3770] 
inder ";USING "## 

#####.##";kf 

2890 IF wf > 0 THEN PRINT #8,"Sonstige Fre [4790] 

ibetraege ";USING "## 

#####.## DM";wf 

2900 IF r$ = "j" OR r$ = "J" THEN PRINT #8 [5295] 
,"Religionszugehoerigkeit 
";UPPERS(rS) 

2910 IF rgb > 0 THEN PRINT #8,"Kirchensteu [5733] 
ersetz ";USING "# 

######.## %";rgb 

2920 IF rvS = "j" OR rvS = "J" THEN PRINT [8984] 
#8,"Rentenversicherungspflichtig 
";UPPERS(rv$) 

2930 PRINT #8,"" [546] 

2940 PRINT #8,"" [546] 

2950 IF net$ = "j" OR net$ = "J" THEN GOTO [1327] 
2980 

2960 IF netto > 0 THEN PRINT #8,"N E T T O [4749] 

";USING 

"#######.## DM";netto 

2970 IF bruS = "j" OR bru$ = "J" THEN END [1142] 
2980 IF r4 > 0 THEN PRINT #8,"E R F O R [3646] 
DERLICHES BRUTTO ";USING 
"#######.## DM";r4 

Listing STEUER BAS 
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Programm—[ 




ten, die mit dem erdrehten Betrag mul¬ 
tipliziert und auf dem Punktekonto gut¬ 
geschrieben wird. Hat man einen Kon¬ 
sonanten glücklich getroffen, darf man 
nochmal drehen und einen neuen Kon¬ 
sonanten eingeben. 

Ist der Konsonant nicht vorhanden, oder 
gibt’s beim Drehen keine Punkte, ist der 
nächste Spieler an der Reihe. Wenn ge¬ 
dreht wurde, darf nur ein Konsonant 
eingegeben werden, ansonsten ist eben¬ 
falls der nächste Spieler am Zug. Wenn 
man mindestens 300 Punkte auf dem 
Konto hat. kann man, wenn man an der 
Reihe ist, einen Vokal kaufen. In diesem 
Fall werden vom Punktekonto 300 
Punkte abgezogen. Für das Auftreten 
des Vokals gibt es keine Punkte. Falls 
der gewünschte Vokal nicht vorhanden 
ist, kann der nächste Spieler weiterma¬ 
chen. Vokale können auch nur gekauft 
werden, angewählt werden können sie 
nicht. 

Falls man nun nicht mehr drehen will, 
kann man auch Weitergeben und der 
nächste Spieler ist an der Reihe. Will 
man nicht mehr drehen, weil man 
glaubt, das gesuchte Wort erraten zu ha¬ 
ben, kann man Lösen und muß nun das 
gesuchte Wort eingeben. Wurde das 
Wort erraten, gibt es 1000 Punkte als 
Bonus, und die nächste Runde beginnt. 
War das Lösungswort falsch, ist der 
nächste Spieler dran. Die Bonuspunkte 
für das Lösen eines Wortes gibt es nur, 
wenn das Wort durch die Menüfunktion 
Lösen erraten wurde, nicht jedoch, 
wenn alle Buchstaben, die gesucht wer¬ 
den, durch Drehen eingegeben werden. 

Bis hierhin ist GLÜCKSRAD ja ganz 
einfach - aber es gibt natürlich auch 
Tücken. Man kann nämlich einen Bank¬ 
rott erdrehen, durch den dann das eigene 
Punktekonto einer Runde gelöscht wird. 
Ganz schön fies ist es auch, wenn man 
Aussetzen muß und dadurch der nächste 
Spieler an die Reihe kommt. Es kann 
aber auch ein Extra-Dreh "erdreht" wer¬ 
den, durch den man ein Aussetzen oder 
den Bankrott sofort aufhebt, hat man 
eins von beiden erwischt. 

Jeder Spieler kann höchstens einen 
Extra-Dreh auf einmal besitzen, der so¬ 
fort nach der Verwendung gelöscht 
wird. Gespielt werden drei Runden, 
nach denen der Sieger ausgegeben wird. 
Sieger ist. wer am Schluß die meisten 
Punkte hat. 

Der Oberbegriff \ unter den das gesuchte 
Wort einzuordnen ist, wird in der linken 
unteren Ecke angezeigt: Sachen können 
Gegenstände jeglicher Art sein. Titel 
können Buch- oder Filmtitel oder auch 
den Namen einer Sendung bedeuten. 


Dreh das Glücksrad 


Spannendes Ratespiel 


Hi Id I: Drehen Sie um Glücksrad und machen Sie Punkte 


Falls eine Zahl er¬ 
dreht wird, kann 
man einen Konso¬ 
nanten eingeben. 
Falls dieser Kon¬ 
sonant im Wort 
vorkommt, wird er 
an den entspre¬ 
chenden Stellen 
angezeigt. Der 
Punktestand pro 
Spieler und Runde, 
der in der rechten 
oberen Ecke des 
Menüs angezeigt 
wird, ergibt sich 
durch die Häufig¬ 
keit des Konsonan¬ 


Wenn man Computer-Besitzer ist und Familie hat, kommt es häufig vor, daß 
man mit diesem Hobby etwas "abseits” steht. Dies kann sich aber ändern, 
wenn der Rechner etwas bietet, was allen Familienmitgliedern Spaß macht - 
in diesem Falle ein Ratespiel. 


Bei dem CPC-Spiel GLÜCKSRAD ha¬ 
ben maximal drei Spieler die Aufgabe, 
gesuchte Wörter, die nur durch Striche 
dargestellt werden, zu erraten. Nach 
dem Programmstart mit 

RUN"GLUECK.BAS 

wird zuerst vom Programm abgefragt, 
ob ein Farbmonitor angeschlossen ist. 
Daraufhin werden der Bildschirm ein¬ 
geladen und die Namen der Spieler ab¬ 
gefragt, die maximal acht Buchstaben 


beinhalten dürfen. Danach erscheint ein 
übersichtliches Menü, welches vier ver¬ 
schiedene Optionen bietet: 

/. Weitergeben 

2. Vokal kaufen 

3. Lösen 

4. Drehen 


Die Anzahl der über den Optionen be¬ 
findlichen Striche verrät die Länge des 
Wortes. Zunächst muß man, so man an 
der Reihe ist, am Glücksrad drehen und 
Zusehen, daß man 
Punkte erhält. 
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r—Proqramm 


Ort kann eine Stadt, ein Land, Gebirge 
oder Gewässer sein. 

Natur sind Tiere, Pflanzen oder ähnli¬ 
ches. Gruppe bedeutet Institution oder 
Gemeinschaft. Person benennt Persön¬ 
lichkeiten. Figuren oder Berufe. Die 


Sonderzeichen ä, ö und ü werden durch 
die Zeichen und "]" dargestellt 

und sind Vokale. 

Mitgeliefert werden insgesamt einhun¬ 
dert Begriffe, die man suchen muß. Zu 
den Listings: Zuerst sollte man das 


Hauptprogramm GLUECK.BAS abtip¬ 
pen und speichern. Danach muß der Da- 
ta-Lader GLUECK.LDR abgetippt wer¬ 
den. der nach Aufruf das Menüpro¬ 
gramm GLUECK.BIN erstellt. 

(Frank Puschkin/Thomas Hombert/tk) 


für 464-664-6128 




10 'GLUECKSRAD 

20 'Written by F.Puschin & Th.Hombert 
30 '(C) by Xeno- & Knightsoft 
40 ' 

50 SYMBOL AFTER 32:SYMBOL 91,&66,&18,&3C,& 
66,&7E,&66,&66,&0:SYMBOL 59,&66,&3C,&66,&6 
6,&66,&66,&3C,0:SYMBOL 93,&66,&44,&66,&66, 
&66,&66,&3C,0:SYMBOL 124,&66,0,&3C,&66,&66 
,&66,&3C,0 

60 SYMBOL 253,126,129,129,129,129,129,129, 
126:SYMBOL 254,0,126,126,126,126,126,126,0 
:SYMBOL 255,0,0,0,0,0,0,0,126 
70 m$(1)="Weitergeben":m$(2)=’Vokal kaufen 
":m$(3)="LIsen":mS(4)="Drehen":MODE 1:DIM 
w$ ( 130 ),g$(130),1(130),l$(130),f$(130):n=l 
:f=1:nol$=CHR$(22) + CHR$(1):no2$=CHRS(253): 
no3$=CHR$(254):no4$=CHR$(22)+CHR$(0) 

80 i$(3)="AUSSETZEN":i$(1)="EXTRA-DREH :1$ 
(2)="BANKROTT" 

90 POKE &B632,255:'** CPC 464 :&B4E8 

100 RANDOMIZE TIME 

101 IF FARBE=1 THEN 140 

110 ' FARBMONITOR ? „ 

120 LOCATE 1,1:PRINT"Benutzen Sie einen Fa 
rbmonitor ? (j/n)":a$=UPPER$(INKEYS):IF a$ 

= "" THEN 120 „ „„„ 

130 CALL &BC02:IF a$="J" THEN INK 1,26:INK 
2,21:INK 3,16 ELSE INK 0,0:INK 1,6: INK 2, 
14:INK 3,9:BORDER 0 
140 LOAD"GLUECK.BIN" 

150 WINDOW 2,27,4,17:x$="GL]CKSRAD":LOCATE 

9,2 :GOSUB 1110 :x$ = "-" :LOCATE 9,3: 

GOSUB 1110:LOCATE 6,8:PRINT STRINGS(17," 

160 FOR a=l TO 3 . , 

170 PEN 2:LOCATE 2,a+6:x$="Name Spieler : 
GOSUB 1110:LOCATE 15,a+6:PRINT a:LOCATE 17 
,a+6:INPUT " : ",n$(a) 

180 IF LEN(n$(a))>8 THEN 170 

190 n$(a)=UPPER$(n$(a)):NEXT 

200 GOSUB 1050:CLS:WINDOW 1,40,1,25:FOR a- 

1 TO 3 :y=( 3 *a) + (3*(a-l))-(a-l):LOCATE 30,y 

:PRINT STRINGS(10," "):LOCATE 30,y:x$=n$(a 

)+":":GOSUB 1110:NEXT:FOR a=l TO 3:g(a)=0: 

NEXT:n=l 

210 ' HAUPTTEIL 

220 IF n=l THEN m=l ELSE IF n=2 THEN m=2 E 
LSE m=3 

230 FOR a=l TO 3:h(a)=h(a)+g(a):g(a)=0:NEX 
T:LOCATE 2,5:PRINT STRINGS(25," "):GOSUB 4 
80 

240 ' HAUPTANLAUFSCHLEIFE 

250 ko=0:FOR a=l TO 3:y=2+(3*a)+(3*(a-1))- 

(a-1):PEN a:LOCATE 30,y:PRINT STRING$(7," 

"):LOCATE 30,y:PRINT g(a):NEXT 

260 LOCATE 5,22:PRINT STRINGS(11," ") 

270 IF m=l THEN PEN 2:PRINT nol$:LOCATE 38 
5:PRINT no2$:PEN 3:LOCATE 38,5:PRINT no3$ 
:PRINT no4$:LOCATE 38,10:PRINT " ":LOCATE 
38,15:PRINT " " 

280 IF m=2 THEN PEN 2:LOCATE 38,5:PRINT 
":PRINT nol$:LOCATE 38,10:PRINT no2$:PEN 
3:LOCATE 38,10:PRINT no3$:PRINT no4$:L0CAT 
E 38,15:PRINT " " 

290 IF m=3 THEN PEN 2:LOCATE 38,5:PRINT 
":LOCATE 38,10:PRINT " ":PRINT nol$:LOCAT 
E 38,15:PRINT no2$:PEN 3:LOCATE 38,15:PRIN 
T no3$:PRINT no4$ 

300 IF m=4 THEN m=l:GOTO 240 

310 o=0:GOSUB 620 

320 ' EINGABEBUCHSTABE 

330 FOR w=l TO (LEN(W$(Z))+1):LOCATE (24 L 
EN(r$))+w,5:1$(W)=COPYCHR$(# 0):NEXT 
340 FOR a=l TO 5:CLEAR INPUT:NEXT 
350 a$=UPPER$(INKEYS) 

360 IF a$ ="" OR a$ = " " THEN 350 


Listing GLUECK BAS 


[1302] 

[2033] 

[1401] 

[117] 

[9059] 


[5476] 

[12553] 

[3534] 

[1825] 

[1777] 

[880] 

[971] 

[6055] 

[5943] 


[1133] 

[5987] 


[773] 

[5879] 


[1951] 

[1411] 

[ 11011 ] 


[1025] 

[1412] 

[5958] 


[1265] 
[4451 ] 


[2347] 

[7884] 


[8255] 


[10062] 


[1186] 

[1467] 

[1835] 

[4359] 

[3080] 

[789] 

[884] 


370 IF a$="I" OR a$="A" OR a$="E" OR a$="0 [11188] 
" OR a$="U" OR A$=";" OR A$="]" OR A$="[" 

THEN LOCATE 3,16:PRINT"DAS IST EIN VOKAL": 

GOSUB 1240:LOCATE 3,16:PRINT STRINGS(17," 

"):m=m+l:FOR a=l TO 100 STEP 5:SOUND l,a,l 
:NEXT:GOTO 240 
380 ' DOPPELT ? 

390 FOR t=l TO f 

400 IF a$=f$(t) THEN LOCATE 3,16:PRINT "WA 
R SCHON !":GOSUB 1240:LOCATE 3,16:PRINT ST 
RINGS(11," "):m=m+l:FOR a=l TO 100 STEP 5: 

SOUND l,a,l:NEXT:GOTO 240 
410 NEXT 

420 ' BUCHSTABEN-UEBERTRAGUNG 
430 FOR nr=l TO LEN(r$):PEN 1:IF UPPERS(MI 
D$(r$,nr,1))=a$ THEN o=o+l:SOUND 1,100,5:G 
OSUB 1240:LOCATE 24 -LEN(rS)+nr,5:PRINT a$ 

440 NEXT 

450 ' BUCHSTABE MERKEN 

460 f$(f)=a$:f=f+l:IF o>0 THEN GOSUB 910 
470 FOR a=l TO 100 STEP 2:SOUND l,a,l:NEXT 
:m=m+l:GOTO 240 

480 DATA SCHULDIREKTORIUM,GRUPPE,WASSERHAH 
N,SACHE,TENTAKEL,NATUR,FOTOALBUM,SACHE, M ] N 
CH EN, ORT, KIRCHTURM, ORT, WAS HINGTON, ORT, DER 
DENVER CLAN,TITEL,F]HRERSCHEIN,SACHE,SCHNE 
EMANN,PERSON,FERNSEHER,SACHE,TRANSISTORRAD 
IO,SACHE,MATRIXDRUCKER,SACHE 
490 DATA ATOMREAKTOR,SACHE,MANFRED KRUG,PE 
RSON,FUSSBODENHEIZUNG,SACHE,SCHL]SSELANH [ N 
GER,SACHE,KERZENST[NDER,SACHE,THOMAS GOTTS 
CHALK,PERSON,EIFFELTURM,ORT,DISKETTE,SACHE 
,ENDLOSPAPIER,SACHE,TASCHENRECHNER,SACHE,S 
CHRAUBENZIEHER,SACHE,LOCKENWICKLER,SACHE 
500 DATA DISKETTENLAUFWERK,SACHE,BLATT VOR 
DEM MUND,REDE,GELSENKIRCHEN,ORT,HOKUSPOKU 
S,REDE,TAUBENNEST,NATUR,SCHNELLDICHTER,PER 
SON,CHEMIEPROFESSOR,PERSON,VIER GEGEN WILL 
I TITEL,NORDDEUTSCHER RUNDFUNK,GRUPPE 
510 DATA CHRONOMETER,SACHE,BLUMENVASE,SACH 
E,SCHIFFSCHAUKEL,SACHE,HALLO SPENCER,TITEL 
,L;WENZAHN,NATUR,RHEINUFER,ORT,;STERREICH, 

ORT,ROSENGARTEN,SACHE,BUCHST[NDER,SACHE,SC 
HREIBMASCHINE,SACHE,COMPUTERTISCH,SACHE,EN 
GLISCHLEXIKON,SACHE,KASSETTENREKORDER,SACH 
E 

520 DATA KUGELSCHREIBER,SACHE,SKORPION,NAT 
UR,FOTOAPPARAT,SACHE,TINTENKILLER,SACHE,SC 
HWIEGERVATER,PERSON,BORIS BECKER,PERSON,DA 
S LETZTE GEFECHT,TITEL,MEINUNGSFORSCHER,PE 
RSON,BRIEFMAPPE,SACHE,KETTENFAHRZEUG,SACHE 
,TASCHENSPIEGEL,SACHE 

530 DATA WASCHMASCHINE,SACHE,TRANSISTORRAD 
IO,SACHE,LEUCHTDIODE,SACHE,FERNW[RMEREAKTO 
R,SACHE,XANTHIPPE,PERSON,J[GERMEISTER,PERS 
ON,OBSTBAUM,NATUR,SPUKSCHLOSS,ORT,BADEWANN 
E,SACHE 

540 DATA PINNWANDNOTIZ,SACHE,B]GELEISEN,SA 
CHE,TAGESSCHAU,TITEL,ROULETTETISCH,SACHE,S 
OZIALAMT,GRUPPE,VERSICHERUNG,SACHE,RUDERBO 
OT,SACHE,WESTERNHAGEN,PERSON,GARFIELD,PERS 
ON,SESAMSTRASSE,TITEL,FENSTERSCHEIBE,SACHE 
550 DATA KARWENDELGEBIRGE,ORT,SCHNAPPSCHLO 
SS,SACHE,SCHREIBTISCHSTUHL,SACHE,TENNISBAL 
L,SACHE,TISCHTENNISPLATTE,SACHE,MARSUPILAM 
I,PERSON,REGENBOGEN,SACHE,BODYBUILDER, PERS 
ON,BESTELLSCHEIN,SACHE,SPIELGEMEINSCHAFT,G 
RUPPE,KEGELVEREIN,GRUPPE 

560 DATA PLATTENSPIELER,SACHE,FERTIGHAUS,S 
ACHE,TEDDYB[R,SACHE,DIGITALUHR,SACHE,MITGL 
I EDSAUSWEIS,SACHE,GELDSCHEIN,SACHE,FOLIENS 
CHREIBER,SACHE,SCHMETTERLING,NATUR,STECKDO 
SE,SACHE,ISOLIERBAND,SACHE 

570 DATA NACH SCHEMA F,REDE,INS GEBET NEHM 
EN,REDE,HALS ]BER KOPF,REDE,DIE WANNE IST 
VOLL,TITEL,KAP DER GUTEN HOFFNUNG,ORT,AUF 
DEM HOLZWEG,REDE,SISYPHUSARBEIT,REDE,AUF D 
ER WALZE,TITEL,DAGMAR BERGHOFF,PERSON,ORDE 
NSBRUDER,PERSON,FR]HLINGS ERWACHEN,TITEL 
580 RESTORE 480:FOR a=l TO 110:READ w$(a), 
g$(a):NEXT 

590 z=INT(RND*a-l):IF z<=0 THEN 590 
600 R$=wS(z):rgS=g$(z):GOSUB 940:RETURN 

Listing GLUECK BAS 


[1143] 

[829] 

[9090] 


[350] 

[1625] 

[8970] 


[350] 

[1547] 

[1874] 

[3579] 

[17413] 


[15482] 


[16358] 


[19871 ] 


[16474] 


[12015] 


[14542] 


[15139] 


[13941 ] 


[21298] 


[3067] 

[1761] 

[1706] 
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610 REM ZAHLENLAUFROUTINE 
620 GOSUB 1250 

630 WINDOW#l,3,25,7,11:FOR a=l TO 4:PRINT# 
l,a" - " ; :PRINT#1,m$(a):NEXT 
640 LOCATE 3,12:PRINT"Ihre Wahl :k$=INKE 
Y$:j =VAL(k$):IF j<l OR j>4 THEN 640 
650 CLS#1:LOCATE 3,12:PRINT STRINGS(12," " 
) 

660 ON j GOTO 710,1320,970,720 
670 GOTO 720 

680 LOCATE 3,16:PRINT"Nochmal drehen 
CLEAR INPUT:extra(m)=1:GOSUB 1240:LOCATE 3 
,16:PRINT STRINGS(18," "):GOTO 740 
690 IF extra(m)=l THEN 1360 ELSE LOCATE 3 
,16:PRINT"Bankrott CLEAR INPUT:GOSUB 

1240:LOCATE 3,16:PRINT STRING$(12," "):g(m 
)=0:m=m+l:GOTO 250 

700 IF extra(m)=l THEN 1360 ELSE LOCATE 3, 
16:PRINT"Aussetzen CLEAR INPUT:GOSUB 

1240:LOCATE 3,16:PRINT STRING$(13," ") 

710 m=m+l:FOR a=l TO 100 STEP 5:SOUND l,a, 
1:NEXT:GOTO 240 
720 GOSUB 1250 

730 DATA 100,250,500,100,500,750,1000,-1,7 
50,250,100,250,500,100,2500,-2,250,100,750 
,100,-3,500,5000,500,700 
740 RESTORE 730 

750 FOR k=l TO 24:READ l(k):NEXT 
760 V=INT(RND*24) 

770 IF v<1 OR v>24 THEN 760 
780 FOR S=1 TO V 

790 FOR a=-l TO -3 STEP -1:IF l(s-l)=a THE 
N i$=i$(ABS(a)) ELSE NEXT:i$=STR$(1(s-1)) 
800 LOCATE 5,22:PEN 1:PRINT i$+STRING$(12- 
LEN(i$)," ") 

810 SOUND 1,200,2 

820 FOR q=l TO s*5:NEXT 

830 NEXT 

840 FOR a=-l TO -3 STEP -1:IF l(s-l)=a THE 
N i$=i$(ABS(a)) ELSE NEXT:i$=STR$(1(s-1)) 
850 LOCATE 5,22:PEN 1:PRINT i$+STRING$(12- 
LEN(i$)," ") 

860 CLEAR INPUT 
870 IF 1(S-1)=-1 THEN 680 
880 IF I(S-1)=-2 THEN 690 
890 IF 1(s-1)=-3 THEN 700 
900 ver=l(s-1):RETURN 

910 IF ko=0 THEN g(m)=g(m)+(1(s-1)*o) 

920 ko=0 

930 GOTO 240 

940 ' WORT ANZEIGEN 

950 LOCATE 3,5:PRINT STRINGS(22," "):LOCAT 
E 3,17:PRINT STRINGS(10," "):LOCATE 25-LEN 
(rS),5:PEN 3:FOR X=1 TO LEN(r$):IF MID$(rS 
,X,1)=" " THEN te$=" " ELSE te$=CHR$(255) 
960 PRINT te$;:NEXT:LOCATE 3,17:x$=rg$:GOS 
UB 1100:RETURN 
970 ' LOESEN 

980 LOCATE 3,10:INPUT "",mei$:IF UPPERS(me 
i$)<>r$ THEN 1000 ELSE x$="Bonus : 1000":L 
OCATE 7,15:GOSUB 1110:CALL &BB18:LOCATE 7, 
15:PRINT STRINGS(12," "):g(m)=g(m)+1000:n= 
n+1 

990 SOUND 1,100,5:SOUND 2,400,5:SOUND 3,10 
0,2:SOUND 1,600,5:GOSUB 1160:GOSUB 940:IF 
n=4 THEN 1030 ELSE 220 

1000 m=m+l:LOCATE 3,10:PRINT STRINGS(LEN(m 
ei$)+l," "):GOTO 240 
1010 RETURN 
1020 ' ENDE 

1030 FOR a=l TO 3:h(a)=h(a)+g(a):extra(a)= 
0:NEXT:FOR a=l TO 3:IF h(a)=MAX(h(1),h(2), 
h(3)) THEN no=a ELSE NEXT 

1040 merk=l:WINDOW 2,27,4,18:CLS:x$ = "ENDER 

GEBNIS":LOCATE 9,2:GOSUB 1110:xS="Der Sieg 

er ist :":LOCATE 7,7:GOSUB 1110:x$=n$(no): 

LOCATE 7,9:GOSUB 1110:x$=STR$(h(no))+" Pun 

kte":LOCATE 7,ll:GOSUB 1110 

1050 xS=">> Taste <<":LOCATE 7,14:GOSUB 11 

10:CLEAR INPUT:CALL S.BB18 

1060 CLS:IF merk=l THEN merk=0:GOTO 1080 E 

LSE RETURN 

1070 ' NOCHMAL ? 

1080 LOCATE 6,8:x$="Noch ein Spiel ?":GOSU 
B 1110 

1090 a$=UPPER$ (INKEYS ) :IF a$ = "" OR a$o"J" 
AND a$<>"N" THEN GOTO 1090 ELSE IF a$="J" 
THEN CLEAR:FARBE=1:GOTO 70 ELSE MODE 1:CA 
LL &BC02:END 
1100 ' FAERBEN 
1110 p=l 

1120 FOR d=l TO LEN(x$) 

1130 PEN p:PRINT MIDS(x$,d,1); 

1140 IF p<3 THEN p=p+l ELSE p=l 
1150 NEXT:RETURN 


[1692] 

[873] 

[5403] 

[4803] 

[2034] 

[1792] 

[421] 

[8431] 


[7977] 


[6893] 


[3920] 

1873] 

[4584] 


[729] 

[3017] 

[1471] 

[898] 

[861] 

[4743] 

[4023] 

[1226] 

[1928] 

[350] 

[4743] 

[4023] 

[184] 

[679] 

[1359] 

[878] 

[1017] 

[1172] 

[208] 

[421] 

[ 1011 ] 

[6977] 


[2845] 

[973] 

[10506] 


[6265] 


[4153] 

[555] 

[715] 

[6184] 


[14042] 


[1775] 

[4642] 

[ 211 ] 

[3047] 

[7576] 


[597] 

[260] 

[1345] 

[1801 ] 

[1581] 

[940] 


1160 ' SIEGER 

1170 LOCATE 3,12:PEN 2:PRINT nS(m);" hat R 
";n-l;"gewonnen" 

1180 GOSUB 1310 

1190 CLEAR INPUT:CALL &BB18 

1200 WINDOW 2,27,4,18:CLS:WINDOW 1,40,1,25 

1210 FOR q=l TO 100:f$(q)="":NEXT:f=l 

1220 RETURN 

1230 7 WAIT 

1240 FOR q=l TO 1000:NEXT:RETURN 

1250 ' WORTGEHALT 

1260 FOR W= 1 TO LEN(w$ (z) ) 

1270 LOCATE 25-LEN(w$(z))+w,5:l$=COPYCHR$ ( 
# 0 ) 

1280 IF 1$=CHR$(255) THEN RETURN 
1290 NEXT 

1300 LOCATE 3,16:PRINT"Alles erraten":CALL 
&BB18:LOCATE 3,16:PRINT STRINGS(14," "):n 
=n+l:GOSUB 1310:GOSUB 1160:GOSUB 950:IF n= 
4 THEN 1030 ELSE 220 

1310 FOR q=100 TO 300 STEP 10:SOUND l,q,5: 
NEXT:FOR q=300 TO 100 STEP -10:SOUND l,q,5 
:NEXT:RETURN 

1320 IF g(m)<300 THEN LOCATE 3,16:PRINT"NI 
CHT GENUG GELD":GOSUB 1240:LOCATE 3,16:PRI 
NT STRINGS(17," "):GOTO 630 
1330 LOCATE 3,8:INPUT"Welchen Vokal :",a$: 
a$=UPPER$ (a$ ) : IF a$o"I" AND a$o"A" AND a 
$<>"E" AND a$<>"0" AND a$o"U" THEN 1330 
1340 g(m)=g(m)-300:ko=l 
1350 GOTO 380 

1360 LOCATE 7,15:x$="BENUTZE EXTRA-DREH":G 
OSUB 1110:CALL &BB18:LOCATE 7,15:PRINT STR 
ING$ (18, " " ) : extra (m)=0 .-GOTO 250 
Listmg GLUECK BAS 


10 'GLUECK.LDR 

20 ' erstellt GLUECK.BIN 

30 SYMBOL 255,247,247,247,0,127,127,127,0: 
MODE 1:FOR as=l TO 25:t$=STRING$(40,255):G 
OSUB 70:NEXT 

40 WINDOW #0,2,27,4,17:WINDOW #1,2,19,20,2 
4:WINDOW #2,22,39,20,24:WINDOW #3,29,39,13 
,16:WINDOW #4,29,39,8,11:WINDOW #5,29,39,3 
,6:FOR a=0 TO 5:CLS#a:NEXT:WINDOW 1,40,1,2 
5 

50 LOCATE 2,2:t$=CHR$(164)+" by XENO- and 
KNIGHTSOFT":GOSUB 70:GOSUB 80:LOCATE 3,5:P 
RINT"Bild wird gespeichert...":LOCATE 3,7: 
PRINT"Disk einlegen & Taste" 

60 CALL &BB18:LOCATE 3,5:PRINT STRINGS(24, 
" "):LOCATE 3,7:PRINT STRINGS(21," "):SAVE 
"GLUECK.BIN" ,b,&C000,&4000:END 
70 FOR bu=l TO LEN(t$):PEN CINT(RND*2)+1:P 
RINT MID$(t$,bu,1);:NEXT:RETURN 
80 ORIGIN 35,-4 

90 PLOT 330,90:DRAW 320,80:DRAW 370,30:DRA 
W 380,40:DRAW 330,90:PLOT 370,90:DRAW 430, 
90:PLOT 320,40:DRAW 330,30:DRAW 340,40:PLO 
T 320,40:PLOT 372,90:PLOT 370,90:DRAW 360, 
80:PLOT 370,70:DRAW 380,80 

100 DRAW 410,80:PLOT 320,40:DRAW 336,56:DR 

AW 346,46:DRAW 340,40:PLOT 364,64:DRAW 370 

,70:PLOT 364,64:DRAW 354,74:DRAW 360,80:PL 

OT 390,40:DRAW 390,35:DRAW 395,35:DRAW 395 

,30:DRAW 410,30:DRAW 410,35 

110 DRAW 415,35:DRAW 415,30:DRAW 425,30:DR 

AW 425,35:DRAW 420,35:DRAW 420,45:DRAW 425 

,45:DRAW 425,50:DRAW 415,50:DRAW 415,55:DR 

AW 420,55:DRAW 420,60:DRAW 415,60:DRAW 415 

,65:DRAW 405,65:DRAW 400,65 

120 DRAW 400,60:DRAW 395,60:DRAW 395,55:DR 

AW 400,55:DRAW 400,50:DRAW 395,50:DRAW 395 

,45:DRAW 390,45:DRAW 390,40:PLOT 405,60:DR 

AW 410,60:DRAW 410,55:DRAW 405,55:DRAW 405 

,60:PLOT 410,35:DRAW 400,35 

130 DRAW 400,45:DRAW 405,45:DRAW 405,40:DR 

AW 410,40:DRAW 410,35:PLOT 415,50:DRAW 410 

,50:DRAW 410,45:DRAW 415,45:DRAW 415,50:PL 

OT 435,80:DRAW 435,30:DRAW 450,30:DRAW 450 

,90:DRAW 430,90:PLOT 435,80 

140 DRAW 410,80:PLOT 480,90:DRAW 480,70:DR 

AW 460,50:PLOT 480,90:DRAW 460,70:PLOT 460 

,70:DRAW 456,66:DRAW 456,46:DRAW 460,50:PL 

OT 456,41:DRAW 466,51:DRAW 486,31:DRAW 476 

,31:DRAW 466,31:DRAW 456,41 

150 PLOT 330,83:DRAW 332,81:DRAW 330,81:PL 

OT 372,39:PLOT 372,41:PLOT 370,41:PLOT 328 

,41:PLOT 330,41:PLOT 330,39:PLOT 372,83:PL 

OT 372,81:PLOT 370,81:PLOT 442,39:PLOT 442 

,41:PLOT 440,41:PLOT 474,35 

160 DRAW 472,35:DRAW 472,37:PLOT 474,73:PL 

OT 472,73:PLOT 474,75:PLOT 442,83:PLOT 444 

,83:PLOT 444,81 

170 LOCATE 34,21:PRINT"-SOFT":RETURN 


[421] 

[4619] 

[948] 

[1145] 

[2084] 

[2645] 

[555] 

[141] 

[2280] 

[1792] 

[1769] 

[3030] 

[1797] 

[350] 

[ 10202 ] 


[5052] 


[6291 ] 


[6257] 


[1138] 

[488] 

[6817] 


[677] 

[643] 

[5281] 


[9218] 


[8566] 

[5973] 

[4791] 

[411] 

[11503] 


[10356] 


[ 12000 ] 


[9758] 


[8368] 


[8588] 


[10953] 


[3629] 


[1663] 


Listmg GLUECK BAS 


Listing GLUECK LDR 
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I—Programm 


BELEGVERWALTUNG 

Ein Programm zur Ordnung der 
Fahrkostenquittungen 

Wer noch in der Ausbildung ist und Fahrkosten hat, bekommt diese ganz 
oder teilweise erstattet. Dazu muß man alle Kostenbelege fein säuberlich 
ordnen und auswerten - eine Arbeit, die kaum Freunde findet. Einfacher 
geht’s aber mit dem CPC - und dem Programm BELEG VERWALTUNG. 


Unser Programm zur Erfassung und 
Verwaltung von Fahrkostenbelegen ist 
nach keiner bestimmten Norm aufge¬ 
baut, da es eine solche nicht gibt, und 
richtet sich daher nach allgemein kauf¬ 
männischen Prinzipien. 

Wie auch in anderen Bereichen, bei de¬ 
nen Geld eine Rolle spielt, ist es ganz 
nützlich, System und Ordnung im Pa¬ 
pierkram zu haben. Hinzu kommt, daß 
man zwar meistens an derartige, unbe¬ 
liebte Arbeiten mit einigem Widerwil¬ 
len herangeht, hinterher jedoch froh ist, 
wenn alles stimmt und geordnet ist. 

Daher kann man unser Programm auch 
als kleine "Überwindungshilfe" sehen. 

Das Programm besteht aus dem Haupt¬ 
programm BEL.BAS und der Initialisie¬ 
rungsroutine BELINIT.BAS, die man 
vor der ersten Benutzung des Program¬ 
mes starten muß, damit die Datendatei¬ 
en. die die Belegdaten speichern sollen, 
erstellt werden können. 

Nachdem die Einrichtung des Pro¬ 
gramms erfolgt ist, wird es mit 

RUN"BEL.BAS 

aufgerufen. Im darauf erscheinenden 
Hauptmenü kann man zwischen vier 
Optionen wählen. 


1. Belegorganisation 

Nach Anwahl dieses Menüpunktes ste¬ 
hen wieder Optionen zur Auswahl, 
nämlich Neue Belege eingeben , Alte Be¬ 
lege ändern und Alte Belege löschen. 
Denjenigen unter unseren Lesern, die 
eine kaufmännische Ausbildung ma¬ 
chen, wird auffallen, daß das Programm 
die Belege ebenso ordnet und verwaltet, 
wie dies allgemein bei Buchführung üb¬ 
lich ist. Natürlich können auch in die¬ 
sem Bereich unerfahrene Anwender mit 
dem Programm sehr leicht arbeiten. 

Will man neue Belege eingeben, erhält 
zunächst jeder Beleg vom Programm 
eine Belegnummer , die man tunlichst 
auch auf jedem Beleg entsprechend ver¬ 
merken sollte. Danach gibt man die 
Gültigkeitsdauer an. ln der Spalte Be¬ 
merkung (Art des Beleges) wird eine 
entsprechende Belegbezeichnung ein¬ 
getragen, Beispiel: 

Bahn Würzburg-Nürnberg (Jun- 
Pass) 

Klar ist natürlich auch, daß der Preis 
vermerkt werden muß, was in der näch¬ 
sten Spalte geschieht. Zuletzt kann man 
noch in der Spalte Ab vermerken, ob 
man den Beleg abgelegt hat oder nicht - 
ersteres ist zu empfehlen. Hat man alle 


Eingaben fehlerfrei gemacht, kann man 
weitere Belege erfassen oder aber ins 
Menü zurückkehren. 

Manchmal kommt es vor, daß man Alte 
Belege ändern oder löschen muß. Auch 
diese Funktionen bietet Belegverwal¬ 
tung. Die Bedienung dieser Optionen ist 
identisch mit der Belegerfassung. Wäh¬ 
rend man bei Belegen die Gültigkeits¬ 
dauer, die Bemerkung oder aber den 
Preis ändern kann, sollte man mit dem 
Löschen von Belegen, die bereits erfaßt 
wurden, vorsichtig sein. 

Schließlich erhält, wie bereits erwähnt, 
jeder Beleg eine Nummer vom Pro¬ 
gramm, die man auch der guten Ord¬ 
nung halber auf dem Beleg selbst ver¬ 
merken sollte. Löscht man nun im Pro¬ 
gramm aus einer Reihe erfaßter und so¬ 
mit numerierter Belege einen oder meh¬ 
rere heraus, werden die restlichen Bele¬ 
ge neu numeriert - deshalb sollte man 
sich das Löschen sehr gut überlegen. 

Hat man trotz aller Vorsicht einmal et¬ 
was gelöscht, was nicht gelöscht wer¬ 
den darf, gibt es noch zwei Auswege. 
Der eine ist, daß man das Programm be¬ 
enden muß. Dabei wird abgefragt, ob 
man Veränderungen speichern will, was 
man dann verneint. Der andere Ausweg 
ist, daß das Programm Sicherungsko¬ 
pien von den Daten-Dateien anlegt, die 
man notfalls umbenennen kann. 

2. Übersicht 

Sinn eines Verwaltungsprogramms ist 
es auch, eine Übersicht über die zu ver¬ 
waltenden Daten zu erhalten. Im Menü 
Übersicht kann man wählen, ob man 
eine Übersicht über das aktuelle Jahr , 
oder über mehrere Jahre haben möchte. 

Jeweils erhält man dann eine grafische 
Darstellung der Kosten pro Jahr oder 
pro Monat und eine Gesamtauswertung 
aller bis zur Abfrage erfaßten Belege 



Itikt I: Das Hauptmenü van bete ^Verwaltung bi Ul 2; belege verwalten wie bei der Buchführung 
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Bild 3: 
Die Aufwendungen 
können grafisch 
dargestellt werden 
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nach Anzahl und Kosten. Eine Aufli¬ 
stung der Belege nebst Kostengesamt¬ 
auswertung kann auf Wunsch ausge¬ 
druckt werden, was auch mit allen gän¬ 
gigen Druckern funktionieren sollte. 

3. Jahresendabrechnung 

Wie auch in Firmen und Betrieben üb¬ 
lich. kann man am Jahresende einen 
Jahresabschluß machen. Die Belege 
werden, nachdem man die Option ange¬ 
wählt hat. zunächst nach Datum sortiert 
und ausgegeben. Belege, die identisch 
sind, beispielsweise hunderte von Bus¬ 
fahrkarten, werden zusammengefaßt, 
wobei aber die Anzahl der entsprechen¬ 
den Belege aufgeführt wird. 

4. Programm beenden 

Hat man eine "Erfassungssitzung" hin¬ 
ter sich, kann mit dieser Menüoption 
das Programm verlassen werden. 

Wie schon erwähnt, wird dann noch ge¬ 
fragt, ob man die Veränderungen ab- 


speichem möchte - also gut überlegen. 

Mit Belegverwaltung bekommt man die 
Möglichkeit, die Fahrkostenbelege 
nicht nur zu erfassen, zu verwalten und 
im Überblick zu behalten, sondern kann 


der Erstattungsstelle auch eine sauber 
erstellte "Buchführung" über die Belege 
vorlegen - was sich mit Sicherheit posi¬ 
tiv bemerkbar macht. 

(Andreas Giersig/tk) 


für 6128 




Initialisierung - 


j ////////////////////////// 

2 ' ' 

3 ' Name : BEL ' 

4 ' ' 

5 ' Autor: Andreas Giersig ' 

6 ' ' 

7 '(c) DMV-Verlag Eschwege ' 

8 ' ' 

9 

10 ' 

11 ' 

12 ' 

13 ' 

14 mb=200 : mu=12 

15 ' 

16 DIM vdat$(mb),bdat$(mb),beme$(mb),betr$ 
(mb),abge$(mb) 

17 DIM gbetr(mu),j$(mu) ,gsum$(mu),gz(mb 

18 ' 

19 nu$="0123456789" : Stl$=CHR$(13)+CHRS(1 
27) : st2$=Stl$+CHR$(242)+CHR$(243) 

20 FOR S=32 TO 126 

21 IF INSTR(nu$,CHR$(s))=0 THEN ab$=ab$+C 
HR$(S) 

22 NEXT 

23 ' 

24 ' 

25 ' 

26 OPENIN "BEL-MONA.DAT" 

27 INPUT #9 ,bz 

28 INPUT #9,jahr 

29 FOR nr=l TO bz-1 

30 INPUT #9,vdat$(nr) 

31 INPUT #9,bdat$(nr) 

32 INPUT #9,beme$(nr) 

33 INPUT #9,betr$(nr) 

34 betr$(nr)=RlGHT$(" 

35 INPUT #9,abge$(nr) 

36 NEXT 

37 CLOSEIN 

38 ' 

39 ' - Bildschirmaufbau - 

40 ' 

41 MODE 2 : INK 0,0 : INK 1,26 : 

APER 0 : BORDER 0 : GRAPHICS PEN 

42 inv$=CHR$(24) 


Einlesen der Datenfelder 


+betr$(nr),6) 


PEN 

1 


43 PLOT 3, 7 : DRAW 

392 

44 DRAW 636, 7 : DRAW 

359 

45 DRAW 636,359 : PLOT 
39 

Listing BEL BAS 


3,392 : DRAW 636, 


3, 7 
3, 39 


PLOT 3, 
DRAW 636, 


[2251] 

[203] 

[509] 

[203] 

[1404] 

[ 203] 

[1874] 

[203] 

[2251] 

[117] 

[117] 

[2351] 

[117] 

[475] 

[117] 

[3077] 

[1836] 

[117] 

[4789] 

[998] 

[1825] 

[350] 

[117] 

[2466] 

[117] 

[1710] 

[819] 

[1254] 

[1305] 

[1725] 

[1553] 

[1330] 

[1461] 

[2235] 

[1511] 

[350] 

[752] 

[117] 

[3341] 

[117] 

[3534] 

[835] 

[1331] 

[1456] 

[2106] 


46 LOCATE 21,2 : PRINT "Fahrtkostenruecker 
stattung fuer 19"; 

47 PRINT RIGHT$(STR$(jahr),2)+"/"+RIGHT$(S 
TR$(jahr+1),2) 

48 WINDOW #0, 2,79, 4,22 

49 WINDOW #1, 2,79,24,24 

50 ' 

51 ' - Hauptmaske - 

52 ' 

53 CLS 

54 LOCATE 33,2 : PRINT "Hauptmenue" 

55 LOCATE 32,3 : PRINT "-» 

56 LOCATE 27,5 : PRINT inv$+" 1 "+inv$+" 
Belegorganisation" 

57 LOCATE 27,7 : PRINT inv$+" 2 "+inv$+" 
Uebersicht" 


[3791] 

[3614] 

[1068] 

[1405] 

[117] 

[880] 

[117] 

[91] 

[3161] 

[2108] 

[5298] 

[3204] 


[117] 

[2609] 


58 LOCATE 27,9 : PRINT inv$+" 3 "+inv$+" [3362] 

Jahresendabrechnung" 

59 LOCATE 27,11: PRINT inv$+" E "+inv$+" [4564] 

Programm beenden" 

60 ' 

61 a$=UPPER$(INKEY$) : IF a$="» GOTO 61 EL 
SE aw=VAL(a$) 

62 IF aw=4 GOTO 61 

63 IF a$="E" THEN aw=4 

64 IF aw<l OR aw>4 THEN 61 

65 ON aw GOTO 94,181,368,66 

66 ' 

'++++++++++++++++++++ 

'+ Programm beenden + 

'++++++- 


67 

68 

69 

70 ' 

71 CLS 


[252] 

[661] 

[386] 

[922] 

[117] 

[1013] 

[1729] 

[1013] 

[117] 

[91] 

[5677] 


72 LOCATE #1,1,1 : PRINT #1,"Veraenderunge 
n speichern ? (J/N)" 

73 a$=UPPER$(INKEY$) : IF a$o"J" AND a$<> [1642] 
"N" THEN 73 

74 IF a$="N" THEN 91 

75 LOCATE #1,34,1 : PRINT #l,"Ja" 


76 

77 

78 

79 OPENOUT "BEL-MONA.DAT’ 


Belegdaten sichern - 


80 

PRINT 

#9 ,bz 

81 

PRINT 

#9, jahr 

82 

FOR nr 

=1 TO bz-1 

83 

PRINT 

#9,vdat$(nr) 

84 

PRINT 

#9,bdat$(nr) 

85 

PRINT 

#9,beme$(nr) 

86 

PRINT 

#9,betr$(nr) 

87 

PRINT 

#9,abge$(nr) 

88 

NEXT 


89 

CLOSEOUT 

90 

/ 


91 

MODE 2 

: END :'Ende 

92 

/ 


Itsiing BEL.BAS 



[818] 

[1845] 

[117] 

[1227] 

[117] 

[1566] 

[1042] 

[1053] 

[1305] 

[812] 

[1282] 

[ 1012 ] 

[ 1201 ] 

[1695] 

[350] 

[902] 

[117] 

[1520] 

[117] 
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Programm 


Belegorganisation + 


=== Belege erfassen === 


97 ' - Belegmenue - 

98 ' 

99 CLS 

100 LOCATE 33,2 : PRINT "Belegorganisation 

II 

101 LOCATE 32,3 : PRINT "- 

_»I 

102 LOCATE 27,5 : PRINT inv$+" 1 "+inv$+" 
Neue Belege erfassen" 

103 LOCATE 27,7 : PRINT inv$+" 2 "+inv$+" 
Alte Belege aendern" 

104 LOCATE 27,9 : PRINT inv$+" 3 "+inv$+" 
Alte Belege loeschen" 

105 LOCATE 27,11: PRINT inv$+" H "+inv$+" 
Hauptmenue" 

106 ' 

107 a$=UPPER$(INKEY$) : IF a$="" OR a$="4" 
GOTO 107 

108 IF a$="H" THEN aw=4 ELSE aw=VAL(a$) 

109 IF aw<l OR aw>4 THEN 107 

110 ON aw GOTO 111,138,146,53 

III ' 

112 ' === Belege erfassen === 

113 ' 

114 IF bz<201 GOTO 118 

115 CLS #1 : PRINT #1,"Maximal 200 Belege 
moeglich !" 

116 WHILE INKEY$="" : WEND : CLS #1 : GOTO 
94 

117 ' 

118 f=0 : GOSUB 572 : IF bz<17 THEN y=bz+l 
ELSE y=19 

119 ' 

120 ' - Beginn Eingabeschleife - 

121 ' 

122 nr=bz : y=y+l 

123 IF y=20 THEN GOSUB 598 

124 ' 

125 GOSUB 510 

126 ' 

127 bz=bz+l : IF bz>200 GOTO 115 

128 CLS #1 : LOCATE #1,32,1 :PRINT #1,"(W) 
eiter / (M)enue" 

129 a$=UPPER,S( INKEYS) : IF a$<>"W" AND a$< 
>"M" GOTO 129 

130 ' 

131 CLS #1 

132 ' 

133 IF a$="W" GOTO 122 

134 ' 

135 ' - Ende Eingabeschleife - 

136 ' 

137 GOTO 179 

138 ' 

139 ' === Belege aendern === 

140 ' 

141 an=l 

142 GOSUB 643 :'UP-Beleg waehlen 

143 IF a$="M" THEN 178 

144 nr=w : GOSUB 514 :'UP-Beleg aendern 

145 an=MAX(1,MIN(bz-17,an)) : GOTO 142 

146 ' 

147 ' === Belege loeschen === 

148 ' 

149 an=l 

150 GOSUB 643 :'UP-Beleg waehlen 

151 IF a$="M" GOTO 178 

152 ' 

153 GOSUB 682 :'UP-Balken 

154 CLS #1: PRINT #1,"Wirklich Beleg Numme 
r";w;"loeschen ? (J/N)" 

155 a$=UPPER$(INKEYS) : IF a$o"J" AND aS< 
>"N" THEN 155 

156 GOSUB 682 :'UP-Balken 

157 ' 

158 'CLS #1 

159 IF a$="N" THEN 150 

160 ' 

161 ' - Beleg loeschen - 

162 ' 

163 bz=bz-l 

164 FOR nr=w TO bz-1 

165 vdatS(nr)=vdat$(nr+1) 

166 bdatS(nr)=bdat$(nr+1) 

167 bemeS(nr)=beme$(nr+1) 

168 betrS(nr)=betr$(nr+1) 

169 abgeS(nr)=abge$(nr+1) 

170 NEXT 

171 ' 

Listing BEL.BAS 


=== Belege aendern === 


- Beleg loeschen - 


[1013] 

[1714] 

[1013] 

[117] 

[1444] 

[117] 

[91] 

[3258] 

[2143] 

[4325] 

[3494] 

[3482] 

[3489] 

[117] 

[2104] 

[2878] 

[428] 

[421] 

[117] 

[739] 

[117] 

[807] 

[2283] 

[3760] 

[117] 

[2445] 

[117] 

[2884J 

[117] 

[1517] 

[1177] 

[117] 

[919] 

[117] 

[2685] 

[3140] 

[1995] 

[117] 
[373] 
[117] 
[1449] 
[117] 
[2421] 
[117] 
[418] 
[117] 
[551] 
[117] 
[218] 
[1908] 
[605] 
[2336] 
[1679] 
[117] 
[1166] 
[117] 
[218] 
[1908] 
[1414] 
[117] 
[1749] 
5 [4185] 

: [1767] 

[1749] 

[117] 

[667] 

[941] 

[117] 

[840] 

[117] 

[Hl] 

[2037] 
[1357] 
[1861] 
[876] 
[1225] 
[1354] 
[350] 
[117] 


172 IF an+15<bz THEN an=MAX(1,an-l) 

173 GOSUB 585 

174 GOTO 150 

175 ' 

176 ' - Zurueck ins Belegmenue - 

177 ' 

178 CLS #1 

179 f=-l : GOSUB 572 

180 GOTO 92 

181 ' 

183 ' Uebersicht + 

184 '+++++++++++++ 

185 ' 

186 ' - Uebersichtsmenue - 

187 ' 

188 CLS 


189 LOCATE 33,2 : PRINT "Uebersicht" 

190 LOCATE 32,3 : PRINT "-" 

191 LOCATE 27,5 : PRINT inv$+" 1 "+inv$+" 
Uebersicht ueber aktuelles Jahr" 

192 LOCATE 27,7 : PRINT inv$+" 2 "+inv$+" 
Uebersicht ueber mehrere Jahre" 

193 LOCATE 27,9 : PRINT inv$+" H "+inv$+" 
Hauptmenue" 

194 ' 

195 a$=UPPER$(INKEYS) : IF a$="" GOTO 195 

196 IF a$="H" GOTO 53 ELSE aw=VAL(a$) 

197 IF aw<l OR aw>2 THEN 195 


198 ' 

199 ' - Loeschen der Additionsfelder - 

200 ' 

201 CLS : gp=0 : ab=0 

202 FOR nr=l TO 12 

203 gbetr(nr)=0 

204 NEXT 

205 ' 

206 IF aw=2 THEN 251 

207 ' 

208 ' === Uebersicht laufendes Jahr === 

209 ' 

210 GOSUB 689 : IF bz=l GOTO 182 

211 ' 

212 ' - Aktuelles Schuljahr anzeigen - 

213 ' 

214 CLS #1: PRINT #1,"Uebersicht ueber da 
s Schuljahr 19"; 

215 PRINT #1,RIGHTS(STR$(jahr),2);"/";RIGH 
T$(STR$(jahr+1),2) 

216 LOCATE #1,50,1 : PRINT #1,"Belegnummer 


--= Uebersicht laufendes Jahr === 
SUB 689 : IF bz=l GOTO 182 


[887] 

[975] 

[415] 

[117] 

[2789] 

[117] 

[373] 

[640] 

[318] 

[117] 

[583] 

[685] 

[583] 

[117] 

[1927] 

[117] 

[91] 

[3039] 

[2108] 

[6574] 

[4385] 

[4112] 

[117] 

[1979] 

[1466] 

[665] 

[117] 

[1968] 

[117] 

[756] 

[1043] 

[573] 

[350] 

[117] 

[315] 

[117] 

[2651 ] 

[117] 

[1851] 

[117] 

[1933] 

[117] 

[4491] 

[1627] 

[2288] 


- Beginn der Additionsschleife - 


217 ' 

218 ' - Beginn der 

219 ' 

220 FOR nr=l TO bz-1 

221 LOCATE #1,64,1 


PRINT #1,USING "###" [ 


[117] 

[3031] 

[117] 

[1305] 

[2480] 


222 gp=gp+VAL(betrS(nr)) [1470] 

223 ' - Datum aufloesen - [1671] 

224 dl=VAL(LEFT$(vdat$(nr),2)) : d2=VAL( [3639] 

MID$(vdatS(nr),4,2)) 

225 d3=VAL(RIGHTS(vdatS(nr),2)) : d4=VAL( [2954] 
LEFTS(bdatS(nr),2)) 

226 d5=VAL(MID$(bdatS(nr),4,2)) : d6=VAL( [4017] 
RIGHTS(bdatS(nr),2)) 

227 IF d2=d5 AND d3=d6 THEN gbetr(d2)=gbe [3410] 
tr(d2)+VAL(betrS(nr)) : GOTO 234 

228 ' - Verteilen des Betrages ueber meh [3602] 

rere Monate - 

229 IF d3<d6 THEN d5=8 [1113] 

230 bpM=VAL(betrS(nr))/(d5-d2+l) [2241] 

231 FOR S=d2 TO d5 [486] 

232 gbetr(s)=gbetr(s)+bpM [1189] 

233 NEXT [350] 

234 IF abgeS(nr)="J" THEN 238 [1451] 

235 ' - Beleg ist noch nicht abgelegt — [3742] 

236 PRINT "Beleg Nummer";nr;"ist noch nie [3740] 
ht abgelegt !" 

237 ab=ab+VAL(betrS(nr)) [1399] 


Beleg ist noch nicht abgelegt — 


238 NEXT 

239 ' 

240 ' - Ende der Additionsschleife 

241 ' 

242 IF ab=0 GOTO 247 

243 GOSUB 696 


[350] 

[117] 

[1695] 

[117] 

[924] 

[972] 

[117] 

[4117] 


245 ' - Uebersichtsmaske fuer aktuelles [4117] 

Jahr- 

246 ' [117] 

247 CLS : PLOT 55,350 : DRAW 55,100 : DRAW [1650] 
620,100 

Listing BELBAS 
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] 


Programm—i 


Sep Okt 
Mai 


Jun 


248 LOCATE 3,17 : PRINT "DM 
Nov Dez Jan"; 

249 PRINT " Feb Mrz Apr 
Jul Aug" 

250 GOTO 286 

251 ' 

252 ' === Uebersicht ueber mehrere Jahre = 


253 

254 

255 


' - Jahresdatei einiesen - 

d=0 


IF gsum$(s)<>"" 


256 OPENIN "BEL-JAHR.DAT" 

257 FOR S=1 TO 12 

258 INPUT #9,j$(s) 

259 INPUT #9,gsum$(s) : 

THEN d=S 

260 NEXT 

261 CLOSEIN 

262 ' 

263 IF d<>0 GOTO 270 

264 PRINT #1," Keine Jahresdaten Vorhände 
n !"+CHR$(7); 

265 PRINT #1,SPACES(15)+"Zurueck mit belie 
biger Taste !" 

266 CALL &BB06 : CLS #1 : GOTO 182 

267 ' 

268 ' - Jahreszeitraum anzeigen - 

269 ' 

270 PRINT #1,"Uebersicht der Schuljahre vo 
n "; 

271 PRINT #1, j $(1);" - ";j $(d) 

272 ' 

273 ' - Summe berechnen und Jahre anzeig 

en- 

274 ' 

275 LOCATE 7,17 

276 FOR S=1 TO 12 
PRINT RIGHTS(j$(s),5);" 
gbetr(s)=VAL(gsumS(s)) 


gp=gp+gbetr( 


277 

278 

s) 

279 NEXT : GOTO 286 

280 ' 

281 ' === Uebersichtsanzeige fuer aktuelle 
und Jahres- Uebersicht === 

282 ' 

283 ' 

284 ' - Ermitteln des Verhaeltnisteilers 

285 ' 

286 vt =0 

287 FOR nr=l TO 12 

288 vt=MAX(vt,gbetr(nr)/250) 

289 NEXT 

290 ' 

291 ' - Bezugszahlen darstellen - 

292 ' 

293 TAG 

294 FOR y=l25 TO 350 STEP 25 

295 PLOT 10,y : DRAW 620,y 

296 MOVE 10,y-6 : PRINT USING "#####";INT 
(vt*25*(y/25-4)); 

297 NEXT 

298 TAGOFF 

299 ' 

300 ' - Balken darstellen - 

301 ' 

302 FOR nr=l TO 12 

303 IF aw=2 THEN mm=nr : GOTO 305 

304 IF nr>4 THEN mm=nr-4 ELSE mm=nr+8 

305 py=lNT(gbetr(mm)/vt)+l00 

306 FOR x=18 TO 38 

307 PLOT 48*nr+x,100 : DRAW 48*nr+x,py 

308 NEXT 

309 NEXT 

310 ' 

311 IF aw=l GOTO 320 

312 ' 

313 ' - Summe aller Jahre - 

314 ' 

315 LOCATE 28,19 : PRINT "Summe aller Jahr 
e : ";USING "#####.##";gp 

316 GOTO 325 

317 ' 

' - Summen aktuelles Jahr - 


318 

319 

320 LOCATE 
r Belege :" 

321 LOCATE 38,19 
legten Belege 

322 LOCATE 28,19 
gp 

323 LOCATE 70,19 
gp-ab 

Listing BEL BAS 


1,19 : PRINT "Gesamtsumme alle 


[4587] 

[2615] 

[407] 

[117] 

[1522] 

[117] 

[2327] 

[117] 

[1318] 

[963] 

[642] 

[2527] 

[350] 
[752 ] 
[117] 
[318] 
[3343] 

[2387] 

[808] 

[117] 

[ 2673] 

[117] 

[3801] 

[1429] 

[117] 

[3320] 

[117] 

[557] 

[963] 

[968] 

[3166] 

[1152] 

[117] 

[4406] 

[117] 

[117] 

[3756] 

[117] 

[575] 

[1043] 

[1969] 

[350] 

[117] 

[1348] 

[117] 

[318] 

[781] 

[214] 

[2458] 

[350] 

[1066] 

[117] 

[1989] 

[117] 

[1043] 

[1384] 

[2787] 

[884] 

[901] 

[1634] 

[350] 

[350] 

[117] 

[465] 

[117] 

[841] 

[117] 

[4052] 

[515] 

[117] 

[792] 

[117] 

[2637] 


PRINT "Summe aller abge [5210] 
PRINT USING "#####.##"; [1908] 
PRINT USING "#####.##"; [2029] 


324 ' 

325 GOSUB 696 

326 CLS #1 : PRINT #1,"Uebersicht drucken 
(J/N) ? «; 

327 a$=UPPER$( INKEYS) : IF a$o"J» AND a$< 
>"N" THEN 327 

328 IF a$="N" THEN CLS #1 : GOTO 362 

329 ' 

330 ' - Gewaehlte Uebersicht druecken — 

331 ' 

332 PRINT #1,"Ja" 

333 PRINT #8,CHR$(12) 

334 PRINT #8,"+- 


- + " 


335 PRINT #8,"I"+SPACE$(77)+"I" 

336 PRINT #8," | Fahrtkostenrueckerstattung 

337 IF aw=2 THEN PRINT #8,"von ";j$(l); H - 
";jS(d); : GOTO 339 

338 PRINT #8,"fuer 19";RIGHTS(STR$(jahr),2 
);"/";RIGHT$(STRS(jahr+1),2)+SPACES(9) ; 

339 PRINT #8,SPACES(28);"I" : PRINT #8 "I" 
+SPACES(77)+"I" 

340 PRINT #8, +- 




341 IF aw=2 GOTO 349 

342 FOR nr=l TO bz-1 

343 PRINT #8,"I";USING "###";nr; 

344 PRINT #8," "+vdat$(nr)+" - "+bdat$(nr 
)+"|"+beme$(nr); 

345 PRINT #8,SPACES(41-LEN(beme$(nr)))+"! 
";USING "###.##";VAL(betr$(nr) 

346 PRINT #8,"| ";abge$(nr);" 

347 NEXT 

348 GOTO 353 

349 FOR s=l TO 12 

350 PRINT #8,"I Jahressumme ";j$(s);' 

;USING "#####.#|";VAL(gsum$(s)); 

351 PRINT #8,SPACES(46);"I" 

352 NEXT 

353 PRINT #8,"+- 


[117] 

[972] 

[2881] 

[1767] 

[1919] 

[117] 

[2279] 

[117] 

[694] 

[1074] 

[4764] 


[2297] 

[2716] 

[2139] 

[3221] 

[2791] 

[4764] 


[406] 

[1305] 

[1301] 

[3391] 

[4572] 

[ 2102 ] 

[350] 

[467] 

[963] 

[4484] 

[1684] 

[350] 

[4764] 


354 PRINT #8,"I"+SPACES(77)+"I" 

355 IF aw=l GOTO 358 

356 PRINT #8,"|";SPACES(25);"Summe aller J 
ahre : ";USING "#####.##";gp; 

357 PRINT #8,SPACES(24); : GOTO 360 

358 PRINT #8,"IGesamtsumme aller Belege : 
"/•USING "#####. ##";gp; 

359 PRINT #8," Summe aller abgelegten Bel 
ege : ";USING "#####.##";gp-ab; 

360 PRINT #8,"|" : PRINT #8,"|"+SPACES(77) 

36J. PRINT #8,"+- 


362 CLS #1 : GOTO 188 

363 ' 

365 ' Jahresabschluss + 

367 ' 

368 GOSUB 689 : IF bz=l GOTO 61 

369 ' 

370 f=0 : GOSUB 572 :'Maske 

371 LOCATE #1,10,1 : PRINT #1, 

372 ' 

373 ' - Sortieren der abgelegeten Belege 

nach dem Datum - 

374 ' 

375 FOR S=1 TO bz-2 

376 LOCATE #1,17,1 
;bz-s -2 

377 y=s 

378 FOR z=s+l TO bz-1 

379 ' - Datum aufloesen - 

380 dl=VAL(LEFT$(vdat$(y),2)) 

MID$(vdatS(y),4,2)) 

381 d3=VAL(RIGHTS(vdat$(y),2)) 

LEFT$(vdatS(z),2)) 

382 d5=VAL(MID$(vdatS(z),4,2)) 

RIGHTS(vdat$(z),2)) 

383 IF abgeS(y)="N" THEN d3=d3+100 
IF abge$(z)="N" THEN d6=d6+100 
IF (d3>d6) OR (d3=d6 AND d2>d5) 

d3=d6 AND d2=d5 AND dl>d4) THEN y=z 

386 IF vdatS(y)=vdat$(z) AND VAL(betr$(z 
))>VAL(betr$(y)) THEN y=z 

387 NEXT 
Listing BEL.BAS 


384 

385 


Sort 


PRINT #1,USING "###" 


d2=VAL( 

d4=VAL( 

d6=VAL( 


OR ( 


[2297] 

[531] 

[6099] 

[2105] 

[5142] 

[4416] 

[2774] 

[4764] 

[519] 

[117] 

[954] 

[1180] 

[954] 

[117] 

[1967] 

[117] 

[1298] 

[2438] 

[117] 

[3023] 

[117] 

[998] 

[3009] 

[584] 

[755] 

[1671] 

[3660] 

[2978] 

[3482] 

[1245] 

[1064] 

[5441] 

[3749] 

[350] 
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388 IF y=S GOTO 394 


[787] 

389 h$=vdat$(s) : vdatS(s)=vdat$(y) : 

vda 

[2479] 

t$(y)=h$ 



390 h$=bdat$(s) : bdat$(s)=bdat$(y) : 

bda 

[1300] 

t$(y)=h$ 



391 h$=beme$(s) : beme$(s)=beme$(y) : 

bem 

[2346] 

e$(y)=h$ 



392 h$=betr$(s) : betrS(s)=betr$(y) : 

bet 

[1907] 

r$(y)=h$ 



393 h$=abge$(s) : abge$(s)=abge$(y) : 

abg 

o 

in 

e$(y)=h$ 



394 NEXT : CLS #1 


[566] 

395 ' 


[117] 

396 ' - Beleganzahl auf die abgelegten B 

[3506] 

elege veringern - 



397 ' 


[117] 

398 y=bz 


[736] 

399 FOR s=bz-l TO 1 STEP -1 


[1516] 

400 IF abge$(s)="N" THEN y=s 


[1333] 

401 NEXT 


[350] 

402 h=bz : bz=y 


[454] 

403 FOR an=l TO bz-1 STEP 17 


[915] 

404 GOSUB 585 : GOSUB 696 


[1542] 

405 NEXT 


[350] 

406 bz=bz-l : f=-l : GOSUB 572 


[1212] 

407 ' 


[117] 

408 ' - Multiplikationsmaske - 


[599 ] 

409 ' 


[117] 

410 CLS : LOCATE 2,1 : PRINT "Anzahl 

Bern 

[4914] 

erkung (Art des Beleges) "; 



411 PRINT " 


[1463] 

Preis Summe" 



412 PLOT 76, 38 : DRAW 76,357,1 


[1538] 

413 PLOT 444, 38 : DRAW 444,357 


[885] 

414 PLOT 516, 38 : DRAW 516,357 


[1239] 

415 PLOT 3,327 : DRAW 636,327 


[798] 

416 ' 


[117] 

417 y=3 : gsum=0 


[1090] 

418 FOR nr=l TO bz 


[1057] 

419 z=0 : IF gz(nr) GOTO 438 


[1546] 

420 FOR s=nr TO bz 


[772] 

421 IF qz(S) GOTO 423 


[717] 

422 IF betr$(nr)=betr$(s) AND beme$(nr)= 

[2912] 

beme$(s) THEN z=z+l : gz(s)=-l 



423 NEXT 


[350] 

424 ' - Zeile printen - 


[1637] 

425 LOCATE 3,y : PRINT USING "###";z 


[2039] 

426 LOCATE 10,y : PRINT beme$(nr) 


[1054] 

427 LOCATE 57,y : PRINT USING "###.## 

1 ; VA 

[2311] 

L(betr$(nr)) 



428 LOCATE 69,y : PRINT USING "###### 

.##" 

[3051] 

;z*VAL(betr$(nr)) 



429 ' - Gesammtsumme - 


[1550] 

430 gsum=gsum+z*VAL(betr$(nr)) 


[2010] 

431 y=y+l : IF y<>20 AND nr<>bz THEN 

438 

[1967] 

432 LOCATE #1,1,1 : PRINT #1,"Gesammtsumm 

[4142] 

e : ";USING "######.##";gsum 



433 GOSUB 696 : y=3 


[1711] 

434 WINDOW #2, 4, 6,6,22 : CLS #2 


[1410] 

435 WINDOW #2,11,55,6,22 : CLS #2 


[2246] 

436 WINDOW #2,57,63,6,22 : CLS #2 


[2071] 

437 WINDOW #2,69,78,6,22 : CLS #2 


[1940] 

438 NEXT 


[ 350] 

439 ' 


[117] 

440 ' - Wirklich Jahr abschliesen ? 

— 

[1096] 

441 ' 


[117] 

442 FOR s=l TO bz : gz(s)=0 : NEXT 


[1203] 

443 LOCATE #1,40,1 : PRINT #1,"Jahresdatei 

[3421] 

(a)nlegen / (H)auptmenu" 



444 a$=UPPER$( INKEYS) : IF a$o"A" AND 

a$< 

[2352] 

>"H" THEN 444 



445 CLS #1 


[373 ] 

446 IF a$="H" THEN bz=h : GOTO 41 


[1816] 

447 'Jahresdatei anlegen 


[638] 

448 altjahr=jahr 


[515] 

, 449 LOCATE #1,1,60 : PRINT #1,"Wirklich Ja 

[7325] 

hresdatei anlegen und Belege loeschen 

(J/N 


450 a$=UPPER$( INKEYS) : IF a$o"J" AND 

a$< 

[2017] 

>"N" GOTO 450 



451 CLS #1 


[373] 

452 IF a$="N" THEN bZ=h : GOTO 502 


[1603] 

453 ' 


[117] 

454 ' - Naechstes Jahr festlegen - 


[1217] 

455 ' 


[117] 

456 PRINT #1,"Naechstes Jahr :";jahr+1901; 

[3703] 

"/";jahr+2;" (J/N) ?" 



457 a$=UPPER$(INKEYS) : IF aS<>"J" AND 

a$< 

[2038] 

>"N" GOTO 457 



458 CLS #1 


[373] 

459 IF a$="J" THEN jahr=jahr+l : GOTO 

467 

[2300] 

460 WINDOW SWAP 0,1 


[1031] 

461 CLS:PRINT "Neues Schuljahr : 19"; 


[2616] 

462 y=l : w$="" : 1=2 : g$=nu$ : GOSUB 

611 

[2370] 

Listing BEL BAS 




463 CLS : jahr =VAL(w$ )-1 : WINDOW SWAP 0,1 
: GOTO 456 

464 ' 

465 ' - Neue Monatsdatei anlegen - 

466 ' 

467 OPENOUT"BEL-MONA.DAT" 

468 bz=l : PRINT #9,bz 

469 PRINT #9,jahr 

470 CLOSEOUT 

471 ' 

472 ' - Jahresdatei einiesen - 

473 ' 

474 d=0 

475 OPENIN"BEL-JAHR.DAT" 

476 FOR S=1 TO 12 

477 INPUT #9,j$(S) 

478 INPUT #9,gsum$(s) : IF gsum$(s)<>"" T 
HEN d=s 

479 NEXT 

480 CLOSEIN 

481 ' 

482 d=d+l : IF d<12 GOTO 489 

483 LOCATE #1,28,1 : PRINT #l,"Nur 12 Jahr 
e moeglich !"+CHR$(7) 

484 FOR t=l TO 1000 : NEXT 

485 GOSUB 696 : GOTO 502 

486 ' 

487 ' - Alte Jahreszahl fuer Jahresdatei 

aufbereiten - 

488 ' 

489 j$(d)=RIGHT$(STR$(1900+altjahr),4)+"/" 
+RIGHTS(STR$(altjahr+l),2) 

490 gsum$(d)=RIGHT$("0000"+RIGHTS(STRS(INT 
(gsum)),LEN(STR$(INT(gsum)))-l),5) 

491 gsum$(d)=gsum$(d)+"."+MID$(STR$(gsum-I 
NT(gsum))+"oo",4,2) 

492 ' 

493 ' - Neue Jahresdatei erstellen - 

494 ' 

495 OPENOUT"BEL-JAHR.DAT" 

496 FOR S=1 TO 12 

497 PRINT #9,j$(s) 

498 PRINT #9,gsum$(s) 

499 NEXT 

500 CLOSEOUT 

501 ' 

502 RUN 

503 ' 

er,/ /////////////////?/////////////> 


506 '' Unterprogramme '' 

507 " " 

508 

509 ' 

510 ' === UP - Eingabe === 

511 ' 

512 vdat$(nr)="" : bdat$(nr)="" : beme$(nr 
)="" : betr$(nr)="" : abge$(nr)="" 

513 ' 

514 ' === UP - Aendern === 

515 ' 

516 dl$=LEFT$(vdat$(nr),2) : d2$=MID$(vdat 
$(nr),4,2) : d3$=RIGHT$(vdat$(nr),2) 

517 d4$=LEFT$(bdat$(nr),2) : d5$=MID$(bdat 
$(nr),4,2) : d6$=RIGHT$(bdat$(nr),2) 

518 bl$=LEFT$(betr$(nr),3) : b2$=RIGHT$(be 

trS(nr),2) 

519 sp=—1 

520 LOCATE l,y : PRINT USING "###";nr : 

521 LOCATE 7,y : PRINT : LOCATE 10,y : 

PRINT : LOCATE 18,y : PRINT 

522 LOCATE 21,y : PRINT : LOCATE 72,y 
: PRINT 

523 1=2 : g$=nu$ : w$=dl$ : LOCATE 5,y : 
PRINT w$; : GOSUB 611 

524 dl$=w$ : IF a$=CHR$(242) THEN 523 

525 1=2 : g$=nu$ : w$=d2$ : LOCATE 8,y : 
PRINT w$; : GOSUB 611 

526 d2$=w$ : IF a$=CHR$(242) THEN 523 

527 1=2 : g$=nu$ : w$=d3$ : LOCATE 11,y : 
PRINT w$; : GOSUB 611 

528 d3$=w$ : IF a$=CHR$(242) THEN 525 

529 1=2 : g$=nu$ : w$=d4$ : LOCATE 16,y : 
PRINT w$; : GOSUB 611 

530 d4$=w$ : IF a$=CHR$(242) THEN 527 

531 IF w$="" THEN d4$=dl$ : d5$=d2$ : d6S= 
d3$ : GOTO 536 

532 1=2 : g$=nu$ : w$=d5$ : LOCATE 19,y : 
PRINT w$; : GOSUB 611 

533 d5$=w$ : IF a$=CHR$(242) THEN 529 

534 1=2 : g$=nu$ : w$=d6$ : LOCATE 22,y : 
PRINT w$; : GOSUB 611 

535 d6$=w$ : IF a$=CHR$(242) THEN 532 


LOCATE 18,y : 
L,y : PRINT 


[117] 

[2308] 

[117] 

[1566] 

[208] 

[1053] 

[902 ] 

[117] 

[2327] 

[117] 

[336] 

[952] 

[963] 

[642] 

[2527] 

[350] 

[752] 

[117] 

[1832] 

[3792] 

[1394] 

[1567] 

[117] 

[3353] 

[117] 

[3498] 

[5237] 

[3107] 

[117] 
[2582] 
[117] 
[1129] 
[963] 
[1131] 
[1069] 
[350] 
[902] 
[117] 
[243] 
[117] 
[2763] 
[ 373] 
[1374] 
[ 373] 
[2763] 
[117] 
[1801] 
[117] 
[3446] 

[117] 

[ 923] 
[117] 
[4750] 

[4027] 

[3190] 

[262] 

[3046] 

[2277] 

[3063] 

[3293] 

[1681] 

[3355] 

[2293] 

[3528] 

[2336] 

[3266] 

[1905] 

[2811] 


[1963] 

[3713] 

[2836] 


Listing BEL.BAS 


34 PC 6/7’91 




Programm—i 


536 dl$=RIGHT$("00"+dl$,2) : d2$=RIGHT$("0 
0"+d2$,2) : d3$=RIGHT$("00"+d3$,2) 

537 d4$=RIGHT$("00"+d4$,2) : d5$=RIGHT$("0 
0"+d5$,2) : d6$=RIGHT$("00"+d6$,2) 

538 LOCATE 5,y : PRINT dl$; : LOCATE 8,y 
: PRINT d2$; 

539 LOCATE 11,y : PRINT d3$; : LOCATE 16,y [3625] 
: PRINT d4$; 

540 LOCATE 19,y : PRINT d5$; : LOCATE 22,y [2344] 
: PRINT d6$; 

541 1=42 : g$=ab$+nu$ : w$=beme$(nr) : LOC 
ATE 25,y : PRINT beme$(nr); 

542 GOSUB 611 : beme$(nr)=w$ : IF a$=CHR$( 

242) THEN 534 

543 1=3 : g$=nu$ : w$=bl$ : LOCATE 69,y : 

PRINT bl$; : GOSUB 611 

544 bl$=W$ : IF a$=CHR$(242) GOTO 541 

545 1=2 : g$=nu$ : w$=b2$ : LOCATE 73,y : 

PRINT b2$; : GOSUB 611 

546 b2$=w$ : IF a$=CHR$(242) GOTO 543 

547 bl$=RIGHT$(" "+bl$,3) : LOCATE-69,y 
: PRINT bl$; 

548 b2$=LEFT$(b2$+"00",2) : LOCATE 73,y : 

PRINT b2$; 

549 1=1 : g$="jJnN" : w$="" : LOCATE 77,y 
: gr=-l : GOSUB 611 : gr=0 

550 abge$(nr)=w$ : IF a$=CHR$(242) GOTO 54 

551 IF V/$ = "" GOTO 549 

552 ' - Datum ueberpruefen - 

553 dl=VAL(dl$) : d2=VAL(d2$) : d3=VAL(d3$ 


[3215] 

[4368] 


[2596] 

[2496] 

[3964] 

[588] 

[3464] 

[1248] 

[1866] 


LOCATE 73,y 


[3403] 

[1971] 

[ 1932 ] 

[826] 

[1575] 

[2409] 


554 d4=VAL(d4$) : d5=VAL(d5$) : 

555 fe=0 

556 IF dl<l OR dl>31 THEN fe=-l 

557 IF d2<l OR d2>l2 THEN fe=-l 

558 IF d3<l OR d3>99 THEN fe=-l 

559 IF d4<l OR d4>31 THEN fe=-l 
Lislmg BEL.BAS 


d5=VAL(d5$) : d6=VAL(d6S [2362] 


[303] 

[1438] 

[1300] 

[878] 

[1490] 


560 IF d5<l OR d5>12 THEN fe=-l 

561 IF d6<l OR d6>99 THEN fe=-l 

562 ddl=d3*372+d2*31+dl : dd2=d6*372+d5*31 
+d4 : IF ddl>dd2 THEN fe=-l 

563 IF NOT fe GOTO 567 

564 LOCATE #1,1,1 : PRINT #1,"Falsches Dat 
um"+CHRS(7) 

565 IF LEN(beme$(nr))=42 THEN beme$(nr)=LE 
FTS(beme$(nr),41) 

566 GOTO 523 

567 vdatS(nr)=dl$+"."+d2$+"."+d3$ : bdat$( 
nr)=d4$+"."+d5$+"."+d6$ 

568 betr$(nr)=RIGHT$(" "+bl$,3)+"."+RIGH 

T$(" "+b2$,2) 

569 sp=0 

570 RETURN 

571 ' 

572 ' === UP - Maske === 

573 ' 

574 IF f GOTO 577 

575 CLS : PRINT "Nr. gueltig 

Bemerkung (Art des Beleges)"; 

576 PRINT " Preis Ab 

II 

577 PLOT 36, 40,1 : DRAW 36,356,1,1 

578 PLOT 196, 38 : DRAW 196,356,1,1 


579 PLOT 540, 38 : DRAW 540,356,1,1 

580 PLOT 604, 38 : DRAW 604,356,1,1 

581 PLOT 3,327 : DRAW 634,327,1,1 : PLOT 
800,700,1 

582 IF f THEN CLS 

583 RETURN 

584 ' 

585 ' === UP - Fuellen === 

586 ' 

587 FOR y=3 TO 19 

588 IF y>bz-an+2 THEN GOSUB 603 : GOTO 59 
5 

Usting BEL BAS 


[ 1442 ] 
[1266] 
[4556] 

[403] 

[4546] 

[3706] 


[2946] 

[196] 

[555] 

[117] 

[1180] 

[117] 

[217] 

[4345] 

[2126] 

[ 2102 ] 

[1928] 

[1426] 

[1157] 

[1839] 

[326] 

[555] 

[117] 

[1175] 

[117] 

[574] 

[1990] 



LABEL-MASTER 1.0.3’-Diskette + Handbuch DM 64,95 

Vergessen Sie einlach alles, was Sie an Etikeüen-Programmen Ihr den CPC kennen, Label-Master verbindet die 
einfache Bedienung eines herkömmlichen Etiketten-Programms mit den grafischen Fähigkeiten von Pro-Design 
Viele wunderschöne Grafiken per Knopfdruck abrufbar 9- und 24-Nado: Druckertreiber. Mit Label-Master er¬ 
stellen Sie keine Nullachttünlzetm-Etiketten. sondern kleine Kunslwerke. 

PRO-DESIGN 2.1, 3"-Diskette + Handbuch DM 64,95 

Der Klassiker unter den DTP-Programmen. Im Handumdrehen erstellen Sie professionelle Grafiken. Rahmen 
Schmucklmion, Symbole und 10 Schriften * CPC-Zoichensatz (alle mit äöüAOÜß). SOZusatzschriltenerhäni-ch 
16 DruckformateiT44 Darstellungsformate, kostenlose DruckeranpBSSung usw, usw. 

PRO-BOOSTER 1.2,3“-D!skotte * Handbuch DM 34.95 

Dokumenten-Druckprogramm. Grafik-Schriftbandgenerator, Snapshotutility Die ideale Ergänzung zu Pro-Design 
DESK-ROYAL 1.0. 3"-Diskette - Handbuch DM 54,95 

38 neue BASIC-Befehla sorgen für PC-Luxus wie Desktopsteuerung und Dialogboxen jetzt auch in Ihren Pro¬ 
grammen, aut Ihrem CPCI Kinderleichte Anwendung, Software vom Feinsten lür alle kreativen BASIC-Freunde. 
Versand gegen Verrechnungsscheck (+3,- DM) oder Nachnahme (+6,- DM). Weitere Angebote in unserem Katalog 


KOSTENLOSER 


AXEL HEBER, POSTF, 2S01S4, D-S800 WUPPERTAL 28 

Crusaöer Software SEWä 


Public-Domain für Amstrad CPC und Joyce 

Preiswerte Programme für CPC und Joyce mit deutscher Anleitung - so macht Software Spaß! 

1 JRT-Pascal - vollständiger Pascal-Compiler • 11 Basic-Complkr E-BASIC für CP/M 

2 Z80-Assembler, Disasscmblcr, Linker, Debugger 12 Turbo Puscal-Pnigrnrome • Turbo-Inlmer, Grafik 

3 Künstliche Intelligenz - XLISP und E-PROLOG • 13 Programme aus Den Joyce programmieren 

4 C-Compil:r Smoll-C - mit Flicßknmma/ahlen • 14 Programme nur C'PC-Datelverwulliing ** 

5 FORTH-83 - Komfortabler Forth-Intcrprcter 15 WordStar-Tnols - Fußnoten, Index, Spallendruck • 

6 Utilities: ßateikompressor, Diskmonitor, Daleircttcr... 16 dBASE-Literaturverwaltung • 

V Programme aus dem Großen CPC-Arbcitsbucb " 17 C-Interprctcr SCI - Spielend C lernen • 

S Advcnturc (olosial Cave (Programm engt och) • 18 MiicroPuck/ZHO - Makroassembler, Debugger. Linker 

U Disk tltilitlcs - kopiert geschützte Software *• 19 DFÜ-Progrumni MEX - Datcniiberlragung • 

10 ItizRuxic - Umfangreiche Basic- Erweiterung •* 

" Auf CPC-464/664 nur mit Spcichcrerweiterung (min. 64K) • * Niehl geeignet für Joyce 


Nur UM 30,- pro Diskette inklusive Porto. Oder drei beliebige Disketten für nur DM 70,-! 
Diskcttenformat 3“ oder Vortex 5,25'. Nachnahme oder Vorauskasse, Ausland nur Vorauskassc, 

MARTIN KOTULLA 

Kronacher Straße 7,8500 Nürnberg 90, Telefon 09 11/30 49 44 


AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 
Auszug aus unserem Lieferprogramm 

JOYCE-Zubehör: 


Farbband 8256/8512 (Nylon) 12,90 

dto. 5 Stück 59,90 

3“-Markendisketten 10 St. 59,90 

Farbband 9512 (Nylon) 18,95 

Typenräder 9512 + SD15 je 25.00 
Diskettenbox t. 60 Disk. 15,50 

Diskettenbox 1 .100 Disk. 18,95 

Druckverlängerung 1,5 m 39,50 

Staubschutzhauben 3er Set 64,50 

Weitere Hauben aut Anfrage. 

CP/M-DOS (auch lür CPC) 
Transferprogramm PCW. PC, CPC 55,00 
PC-Zubehör 1512/1640: 
Tastaturabdeckung 16,95 

Monitorabdeckung 39,50 

Tastaturverlängerung 12,00 

Monitorverlängerung 1512 59,75 

Sonstiges Zubehör: 

Diskettenbox f, 100 5 1/4"-Disk. 16,95 

Diskettenbox f. 50 5 1/4"-Disk. 15,50 

51/4"-Reinigungsdiskette 6,95 

31/2“-Reinigungsdiskette 9,95 

Abdeckhaube 2286/2386 69,00 

Weitere Preise auf Anfrage! 
Preisliste gegen Rückporto 
Lieferung nur gegen UPS-Nachnahme (DM 9,50) 
oder Vorkasse (DM 7,50) 

Ausland: Nur gegen Vorkasse-Euro-Verrecb- 
nungsaeheck (Versandkosten DM 15.00), 
Mindestauttragswerl DM 50,00 zzgl. Versand¬ 


kosion; bei Aufträgen unter DM 50,00 müssen 
v/lr einen Mindermengenzuschlag von DM 15,00 
zum Auftragswert Berechnen 

COM-ZU-ELEKTRONIK 

Michael Kürbis 
Maudacher Str. 215 
0-6700 Ludwigshalen 
TEL.: 0621/559558 
FAX: 0621/5595 03 

Eper BTX-Nr. 0621/559503-0001 P erE 
u u 


JOYCE 


Turbomodul Sprinter 

Beschleunigung bis Faktor 
1,9 + RAM-Erweiterung. 

- Interne Steckkarte 

- keine Installation nötig 

- sofort lauffähig mit CP/M 
und LocoScipt 

mit 256K RAM 359,- DM 

mit 512K RAM 459,-DM 

mit 768K RAM 559,- DM 

mit 1024K RAM 659,-DM 

alle Preise inkl. Test und Einbau. 

Externe Laufwerke: 

Als ZWEIT-Floppy: 

3.5" 222-DM 

5.25" 299,-DM 

Als DRITT-Floppy: 

A:3.5" 259,-DM 

B:3.5" 259,-DM 

B:5.25" 319,-DM 

MicroDesign2 

mit deutschem Tastaturtreiber 

169,-DM 

JOYCE-Platinenservice 

Bernhard Graßhoff 
Roesoll 36 
2305 Heikendorf 
24h HOTLINE 
Telefon 0431 / 24 55 83 
BTX 0431245583 
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PRINT USING "###";nm; 
PRINT vdat$(nm)+" - "+b 


[752 ] 

[3023] 

[1521] 


589 nm=y+an-3 

590 LOCATE l,y 

591 LOCATE 5,y 
dat$(nm); 

592 LOCATE 25,y 
4 2-LEN(beme$(nm))); 

593 LOCATE 69,y : PRINT USING "###.##";VA [3533] 
L("0"+betr$(nm)); 

594 LOCATE 77,y : PRINT abge$(nm) 

595 NEXT 


PRINT beme$(nm)+SPACE$( [3898] 


GOSUB 585 : y=19 


=== UP - Leeren === 


PRINT " " 

PRINT SPACES(19) 
PRINT SPACES(42) 
PRINT " 

PRINT " " 


GO 


596 RETURN 

597 ' 

598 ' === UP - Scroll === 

599 ' 

600 an=bz -16 

601 RETURN 

602 

603 

604 ' 

605 LOCATE l,y 

606 LOCATE 5,y 

607 LOCATE 25,y 

608 LOCATE 68,y 

609 LOCATE 77,y 

610 RETURN 

611 ' 

612 ' === UP - Input === 

613 ' 

614 CLEAR INPUT 

615 ax=POS(#0) : xx=ax-LEN(w$) : yy=y 

616 IF NOT sp THEN g$=g$+stl$ : w$="" 

TO 626 

617 ' 

618 g$=g$+st2$ 

619 IF LEN(W$)<>1 GOTO 626 

620 CURSOR 1 

621 a$=INKEY$ : IF INSTR(st2S,a$)=0 OR a$= 
"" GOTO 621 

622 IF INSTR(CHR$(13)+CHR$(242 )+CHR$(243) , 
a$)<>0 THEN CURSOR 0 : GOTO 639 

623 w$=LEFT$(w$,LEN(w$)-1) : ax=ax-l 

624 LOCATE ax,yy : PRINT " : LOCATE ax, 

yy 

625 ' 

626 WHILE ax<xx+l 

627 CURSOR 1 

628 a$=INKEY$ : IF INSTR(g$,a$)=0 OR aS=" 

" THEN 628 

629 CURSOR 0 

630 IF gr THEN a$=UPPER$(a$) 

631 IF INSTR(CHR$(13)+CHRS(242)+CHRS(243) 

,a$)<>0 GOTO 639 

632 IF a$<>CHR$(127) THEN LOCATE ax,yy : 
PRINT a$; : w$=w$+a$ : GOTO 636 

633 IF ax=xx THEN 627 

634 w$=LEFT$ (w$ ,LEN(w$)-1) 

635 LOCATE ax,yy : PRINT " 

,yy : GOTO 637 

636 ax=ax+l 

637 WEND 

638 ' 

639 RETURN 

640 

641 

642 

643 GOSUB 689 

644 ' 

645 CLS #1 : PRINT #1," ("+CHRS(240)+") 17 
Zeilen zurueck ("+CHR$(241); 

646 PRINT #1,") 17 Zeilen weiter (M)enue ( 
S)prung 

647 IF aw=2 THEN PRINT #1,"(E)inzelauswahl 
" ELSE PRINT #1,"(L)oeschen" 

648 IF TEST(36,42)=0 THEN f=0 : GOSUB 572 
ELSE GOTO 652 :'Maske 

649 ' 

650 GOSUB 585 :'Fuellen 

651 ' 

652 g$=CHR$(240)+CHRS(241)+"MS"+CHR$(55+7* 
aw) 

653 CLEAR INPUT 

654 a$=UPPER$(INKEYS) : IF a$="" OR INSTR( 
g$,a$)=0 GOTO 654 

655 IF a$=CHR$(240) AND an<>l 

MAX(1,an-17) : GOTO 650 

656 IF a$=CHR$(241) AND an<bz-16 THEN an=M 
AX(1,MIN(bz-17,an+17 )) : GOTO 650 

657 IF a$="M" GOTO 681 

658 IF a$=CHR$(55+7*aw) THEN 669 

659 ' — Sprung — 

660 WINDOW SWAP 1,0 : g$=nuS : w=0 : y=l 

661 WHILE w<l OR w>bz-l 

662 CLS : PRINT "Sprung nach Belegnummer 


== UP-Beleg waehlen === 


IF bz=l GOTO 681 


[2545] 

[350] 

[555] 

[117] 

[1837] 

[117] 

[530] 

[555] 

[117] 

[ 1102 ] 

[117] 

[1570] 

[1507] 

[2104] 

[1819] 

[2076] 

[555] 

[117] 

[931] 

[117] 

[184] 

[1371] 

[1337] 

[117] 

[1267] 

[1450] 

[586] 

[1909] 

[4121] 

[2193] 

[2097] 

[117] 

[1072] 

[586] 
[2450] 

[587] 
[1051] 
[2828] 

[4356] 

[405] 

[2193] 

[ 2110 ] 

[504] 

[390] 

[117] 

[555] 

[117] 

[1990] 

[H7] 

[1884] 

[117] 

[3237] 

[3879] 

[4784] 

[3270] 

[117] 

[2384] 

[117] 

[2636] 

[184] 

[2108] 


THEN an= [1982] 


ax=ax-l 
; : LOCATE ax 


[2451] 

[1451] 

[802] 

[1535] 

[2239] 

[2219] 

[3323] 


Listing BEL.BAS 


663 w$="" : 1=LEN(STR$(bz-1))-l : GOSUB 6 

[2359] 

11 :'Input 


664 W=VAL(w$) 

[777 ] 

665 WEND 

[390] 

666 WINDOW SWAP 1,0 

[1024] 

667 IF an>w OR an+16<w THEN an=MAX(l,MIN(b 

[4976] 

z-17,w-8)) : GOSUB 585 :'Fuellen 


668 GOTO 645 

[388] 

669 ' — Einzelauswahl/Loeschen — 

[1741] 

670 WINDOW SWAP 1,0 : g$=nu$ : w=0 : y=l 

[2239] 

671 WHILE w<l OR w>bz-l 

[2219] 

672 CLS : LOCATE 1,1 : PRINT "Zu "; 

[1734] 

673 IF aw=2 THEN PRINT "aendernde"; ELSE 

[4130] 

PRINT "loeschende"; 


674 PRINT " Belegnummer : 

[1669] 

675 1=LEN(STR$(bz-1))-1 : g$=nu$ : w$="" 

[3291] 

: GOSUB 611 Input 


676 w=VAL(w$) 

[777] 

677 WEND 

[390 ] 

678 WINDOW SWAP 1,0 

[1024] 

679 IF an>w OR an+16<w THEN an=MAX(1,MIN(b 

[4976] 

z-17,w-8)) : GOSUB 585 :'Fuellen 


680 y=w-an+3 

[1001] 

681 RETURN 

[555] 

682 FOR dy=368-16*y TO 352-16*y STEP -2 

[1740] 

683 MOVE 8,dy : DRAW 631,dy,1,1 

[1346] 

684 NEXT 

[350] 

685 RETURN 

[555] 

686 ' 

[117] 

687 ' === »Keine Belege eingegeben' === 

[1421] 

688 ' 

[117] 

689 IF bz>l GOTO 692 

[450] 

690 LOCATE #1,27,1 : PRINT #1,"Keine Beleg 

[3985] 

e eingegeben !"+CHR$(7) 


691 FOR t=l TO 1000 : NEXT : CLS #1 

[1536] 

692 RETURN 

[555] 

693 ' 

[117] 

694 ' === »Bitte Taste druecken !' === 

[2355] 

695 ' 

[117] 

696 LOCATE #1,50,1 : PRINT #1,"Bitte Taste 

[2691] 

druecken !" 


697 CALL &BB06 : CLS #1 

[602] 

698 RETURN 

[555] 

bsling BEI. BAS 


^ / r f f / / r / / / / / / / / / / r / / / r f / / t 

[2251] 

2 ' 

[203] 

3 ' Name : BEL-INIT ' 

[675 ] 

4 ' ' 

[203] 

5 ' Autor: Andreas Giersig ' 

[1404] 

6 ' ' 

[203] 

7 '(c) DMV-Verlag Eschwege ' 

[1874] 

8 ' ' 

[ 203] 

g / / f / / t / / / / / f 9 f / / 9 / / / / / t ff t 

[2251] 

100 ' 

[117] 

110 MODE 2 

[513] 

120 DIM j$(12),gsum$(12) 

[1246] 

130 1 DIR,"BEL*.DAT" 

[1452] 

140 OPENOUT "BEL-ERA.DAT" : PRINT #9,"ERA- 

[3044] 

HELP" : CLOSEOUT 


150 PRINT "Bestehende Dateien loeschen ? ( 

[5212] 

J/N) 


160 a$=UPPER$(INKEYS) : IF a$o"J" AND a$< 

[2003] 

>"N" GOTO 160 


170 IF a$="J" THEN PRINT "Ja" ELSE PRINT " 

[1969] 

Nein" 


180 IF a$="J" THEN |ERA,"BEL*.DAT" ELSE |E 

[1452] 

RA,"BEL-ERA.*" 


190 IF a$="J" GOTO 250 

[1169] 

200 PRINT : PRINT "Bestehende Dateien umbe 

[3191] 

nnen in : ..."; 


210 LOCATE 34,VPOS(#0) : INPUT M ",nS 

[1286] 

220 IF LEN(n$ j <1 OR LEN(n$)>3 THEN GOTO 11 

[1542] 

230 1 REN,n$+"-MONA.BEL","BEL-MONA.DAT" 

[1947] 

240 REN,n$+"-JAHR.BEL","BEL-JAHR.DAT" 

[1620] 

250 ‘Dateien erstellen 

[2169] 

260 PRINT : PRINT "Dateien werden nun erst 

[4375] 

eilt !" 


270 PRINT : PRINT "Bitte warten !" 

[1820] 

280 OPENOUT "BEL-MONA.DAT" 

[1566] 

290 bz=l : jahr=90 

[637] 

300 PRINT #9,bz 

[1042] 

310 PRINT #9,jahr 

[1053] 

320 CLOSEOUT 

[ 902] 

330 OPENOUT "BEL-JAHR.DAT" 

[1129] 

340 FOR S=1 TO 12 

[963] 

350 j$(s)="" : PRINT #9,j$(s) 

[1823] 

360 gsum$(s)="" : PRINT #9,gsum$(s) 

[1349] 

370 NEXT 

[350] 

380 CLOSEOUT 

[902] 

390 PRINT : PRINT "Dateien sind erstellt 

[3156] 

Listing BELINIT.BAS 
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Mit Management geht’s 
leichter 

Ein Diskettenmanager für den CPC 

Das Arbeiten mit Disketten kann manchmal umständlich oder auch schwie¬ 
rig sein. Ob es sich nun um das Kopieren handelt, bei dem man nur zu oft 
zum "Diskjockey" wird, oder ob man eine Diskette überprüfen will - alles 
ist nicht gerade komfortabel - es sei denn, man hat ein geeignetes und 
schnell laufendes Programm. 


DISK MAN ist die Lösung für viele 
Probleme, die sich auf dem CPC 
zwangsläufig bei der Arbeit mit Disket¬ 
ten ergeben. Das Programm unterstützt 
die zweite 64-kByte-Arbeitsspeicher- 
bank des 6128, arbeitet aber auch auf 
einem 664 oder 464. Eine eventuell vor¬ 
handene dk'tronics-64-kByte-Speicher- 
erweiterung wird dabei auch berück¬ 
sichtigt. 

Der Vorteil dieser Speichemutzung ist, 
daß man mit DISK MAN von der leidi¬ 
gen Diskettenwechselei beim Kopieren 
ganzer Datenträger erlöst wird - eine 
Diskettenseite wird in zwei Durchgän¬ 
gen kopiert. 

DISKMAN ist komplett in Maschinen¬ 
sprache geschrieben, wobei alle Mel¬ 
dungen und auch die übersichtliche Me- 
nüführung vollständig in Deutsch ge¬ 
halten sind. 

Bei der Arbeit mit DISKMAN und Dis¬ 
ketten sind einige Dinge zu beachten. 
Mit dem Begriff Quelldiskette ist immer 
die Diskette gemeint, von der Ihre Da¬ 
ten kommen oder auf der Sie Daten än¬ 


dern wollen. Die Zieldiskette ist diejeni¬ 
ge Diskette, auf die Daten übertragen 
werden sollen. Die Bezeichnung Track 
entspricht dem Begriff Spur. 

Sie können jeden Programmteil immer 
dann mit <ESC> abbrechen, wenn Sie 
durch eine Laufschrift aufgefordert 
werden, eine Diskette einzulegen, oder 
wenn Sie sich in der Directory-Anzeige 
befinden. Lassen Sie eine eingelegte 
Diskette immer so lange im Laufwerk, 
bis Sie durch eine Laufschrift aufgefor¬ 
dert werden, eine andere Diskette einzu¬ 
legen. 

Tippen Sie als erstes das Listing DISK¬ 
MAN.LDR ab. Speichern Sie es mit 

SAVE"DISKMAN.LDR 

Das Programm legt nach dem Start mit 
run"diskman . ldr" das eigentliche Pro¬ 
gramm, ein Binärprogramm, auf Ihrer 
Diskette ab. Dieses können Sie mit 

run "dis kman " starten. 

Zunächst erscheint ein Eingangsmenü 
auf dem Bildschirm. Links oben meldet 
der Computer die Größe des freien Spei¬ 


cherplatzes, den das Programm als Puf¬ 
fer bei Diskettenoperationen benutzt. 
Durch Drücken einer Taste kommen Sie 
ins Hauptmenü. Betätigen Sie nun eine 
der Tasten, die in spitzen Klammern ste¬ 
hen, starten Sie die entsprechende Un¬ 
terroutine. 

Einzelne Files kopieren: 

Hiermit werden die von Ihnen ge¬ 
wünschten Dateien von der einen Dis¬ 
kette zu den Dateien einer anderen Dis¬ 
kette dazu kopiert. Ist bereits eine na¬ 
mensgleiche Datei auf der Zieldiskette 
vorhanden, so wird diese nicht gelöscht, 
sondern erhält die Endung .BAK. Die 
andere Datei wird dann mit der 
Originalendung abgelegt. 

Nachdem Sie entsprechend der Lauf¬ 
schrift Ihre Quelldiskette eingelegt ha¬ 
ben, erscheint am Bildschirm das Direc¬ 
tory (Erläuterung des Ausgabeformats 
finden Sie unter Directory ändern). Nun 
können Sie die Dateien auswählen, die 
Sie beabsichtigen zu kopieren. Mit den 
Cursorsteuertasten bewegen Sie den 
Cursor (Leuchtbalken) über den Bild¬ 
schirm. 

Mit der Taste <COPY> markieren Sie 
die Datei an der augenblicklichen Cur¬ 
sorposition oder löschen, wenn diese 
schon markiert war, die Markierung. 
Mit der Taste <ENTER> markieren Sie 
alle Dateien ab der momentanen Cur¬ 
sorposition bis zum Ende. Falls eine Da¬ 
tei bereits ausgewählt war, wird dies 
rückgängig gemacht. 

Wenn Sie Ihre Wahl beendet haben, 
starten Sie den Kopiervorgang durch 
Drücken der Leertaste. Sind keine Da¬ 
teien angewählt worden, kehrt das Pro¬ 
gramm sofort ins Hauptmenü zurück. 

Diskette optimiert kopieren: 

Dieser Programmteil entspricht der 
Routine Einzelne Files kopieren mit 
zwei wichtigen Unterschieden: 

1. Es werden immer alle Dateien ko¬ 
piert. 

2. Auf der Zieldiskette werden vor dem 
Kopiervorgang alle Dateien gelöscht. 
Achtung: Die Zieldiskette darf keine 
Dateien enthalten, die Sie noch benöti¬ 
gen. da diese gelöscht werden. Die Ziel¬ 
diskette muß formatiert sein! 

Gegenüber Ganze Diskette kopieren hat 
dieser Menüpunkt den Vorteil, daß nur 
soviel kopiert wird, wie auf der Quell¬ 
diskette mit Dateien belegt ist. Dies er¬ 
gibt einen Zeitgewinn beim Kopieren. 
Die Dateien werden auf der Zieldiskette 
neu angelegt, dabei geordnet und ent- 
fragmentiert (ergibt Verkürzung der La¬ 
dezeiten). Nach Beendigung des Ko- 
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<I> 

Einzel»* Files kepier« 

<ö> 

liskette »ptiiiiert kapier« 

a> 

Caue Biskett* kapier« 

<r> 

Biskett* famtier« 

<•> 

Biskett« verifizitrn 

00 

Diskette «ekn 

<b> 

m 

Bireetory jesdern 

Bitte drueckm Sie di* entsprechend* last* <D 


Bild 1: Das Menü von Diskman 


Bild 2: Das Directory beim Dateikopieren 


piervorgangs werden Sie gefragt, ob Sie 
noch eine andere Diskette kopieren wol¬ 
len. Drücken Sie jetzt <W>, wird eine 
weitere Diskette kopiert, drücken Sie 
<A>, kehren Sie ins Hauptmenü zurück. 

Ganze Diskette kopieren (entspricht 
Diskcopy): 

Hier wird eine sogenannte l:l-Kopie 
der Quelldiskette erstellt. Die Zieldis¬ 
kette kann auch unformatiert sein; sie 
wird gegebenenfalls vom Programm 
automatisch formatiert. 

Diskette formatieren (entspricht For¬ 
mat): 

Es erscheint ein Menü mit den verschie¬ 
denen Formaten; diese sind im Benut¬ 
zerhandbuch Ihres Rechners erklärt. 
Nach Anwahl des gewünschten Forma¬ 
tes wird die Formatierung gestartet. 
Wenn Sie nach Abschluß dieses Vorgan¬ 
ges auf die Frage, ob Sie noch eine Dis¬ 
kette formatieren wollen, mit <W> ant¬ 
worten, wird dieser Programmabschnitt 
mit gleichen Einstellungen wiederholt. 

Achtung: Beim CP/M-Fonnat werden 
Sie vor dem Formatieren aufgefordert, 
eine Quelldiskette einzulegen, von der 
das Programm die CP/M-Systemspuren 
lesen kann. Legen Sie also Ihre CPM- 
Systemdiskette ein, und folgen Sie den 
Anweisungen auf dem Bildschirm. 

Diskette verifizieren (entspricht 
Diskchk): 

Sie werden aufgefordert, die Diskette 
einzulegen, die Sie überprüfen wollen. 
Das Programm versucht nun alle Sekto¬ 
ren der Diskette einzulesen. Falls dies 
nicht möglich ist, erscheint eine Fehler¬ 
meldung. 

Diskette einen Namen geben: 

Nach Einlegen der Diskette erscheint 
das Directory. Sie werden nun nach ei¬ 
nem Namen für die Diskette gefragt. 


Der Name kann maximal sieben Zei¬ 
chen lang sein und darf auch Sonderzei¬ 
chen enthalten. Danach werden Sie 
nach der Diskettennummer gefragt, wo¬ 
bei davon ausgegangen wird, daß Sie 
Ihre Disketten numerieren (Sie können 
aber auch Buchstaben eingeben). Die 
maximale Länge der Eingabe hat einen 
Umfang von drei Stellen. Bei jedem Di¬ 
rectory erscheint als erster Eintrag der 
Diskettenname mit der Nummer oder 
einer andereren Zusatzbezeichnung. 

Directory ändern: 

Nachdem Sie eine Diskette eingelegt 
und eine Taste gedrückt haben, er¬ 
scheint das Directory. Oben werden die 
Größe des freien Speicherplatzes und 
die Anzahl der freien Directory-Einträ¬ 
ge ausgegeben. Die einzelnen Dateina¬ 
men erscheinen in folgendem Format: 

Usernuminer {#} Filename {*} Länge 
in kByte 

[#] - kennzeichnet ein File mit gesetz¬ 
tem System-Attribut, das heißt, das File 
ist im normalen Directory nicht sicht¬ 
bar. 

1*1 - kennzeichnet ein File mit gesetz¬ 
tem Read-Only-Attribut, das heißt das 
File ist schreibgeschützt. 

[Usemummer] - 0-9 entspricht User¬ 
nummer 0-9, A-F entspricht Usernum¬ 
mer 10-15 

[x] - kennzeichnet ein gelöschtes File 

Alle nun erklärten Befehle beziehen 
sich auf den Dateinamen, auf dem der 
Cursor im Moment steht. 

<0> setzen beziehungsweise löschen 
des Read-Only-Attributs, <S> setzen 
beziehungsweise löschen des System- 
Attributs <E> löschen der Datei, ent¬ 
spricht dem Befehl era Filename unter 
CP/M oder Basic, <R> umbenennen ei¬ 
ner Datei, entspricht dem Befehl 


ren <u> ändern der Usemummer einer 
Datei, beziehungsweise eine mit <x> als 
gelöscht gekennzeichnete Datei wieder 
zurückholen. Sie können Usemummern 
im Bereich von 0-9 und A-F eingeben, 
wobei A-F den Usernummern 10-15 
entspricht. 

Mit der Leertaste beenden Sie den Pro¬ 
grammteil, und das geänderte Directory 
wird auf Diskette zurückgeschrieben 
(Diskette im Laufwerk behalten). Mit 
der Taste <ESC> kommen Sie auch di¬ 
rekt ins Hauptmenü, ln diesem Fall wer¬ 
den Ihre Änderungen nicht gespeichert 
und sind so ungeschehen gemacht. 
Achtung: Das Zurückholen einer Datei 
führt nur dann zum Erfolg, wenn zwi¬ 
schenzeitlich keine anderen Dateien aut 
der Diskette gespeichert worden sind. 

Progr amminstallat ion: 

Sie werden nun nach den Grundein¬ 
stellungen gefragt, die im Programm 
Verwendung finden. 

Achtung; 

Ändern Sie den Starttrack und den End¬ 
track beim Formatieren oder Kopieren 
nur. wenn Sie Kenntnisse darüber besit¬ 
zen. was die jeweiligen Änderungen be¬ 
wirken. 

Beantworten Sie auf die Frage Diskette 
nach Formatieren verifizieren? mit <J>. 
dann wird die Diskette nach dem For¬ 
matieren auf einwandfreies Lesen über¬ 
prüft. Dies verlangsamt den Formatier¬ 
vorgang etwas, aber Sie erkennen gleich 
fehlerhafte Disketten. Wenn Sie auf die¬ 
se Frage mit <N> antworten, dann läuft 
der Formatiervorgang schneller ab, aber 
die Diskette wird nicht mehr überprüft. 
Bei Markendisketten können Sie die 
Überprüfung ruhig ausschalten, da hier 
fast nie Diskettenfehler auftreten. Bei 
den Trackangaben können Sie mit 
<ENTER> die alten Einstellungen über- 
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Programm 


CPCSS4 0S5K frei J Bisfettn Ui.00 (c> by HB-VserSoft j Bireetory aendern 

i ^ndiskelle: 052K t 083 Dir. frei 


1 1 bÄß iftS2 019 
ö P3K948B .ASH 023 
: O BSK0408 .DK 021 

ix Bisam .BAX 808 

1 x BISÖtftH .BIH 003 

x BSHM0B .BAK 016 
x BSX840S .BAX 022 
x DSE04OS JAK 007 
x DSXÖ40S .BAK 00? 
x LOAHR .BAX 0O1 
xLOABIR .BIH 001 
xleeeeeeee.eeeJ^lß 
xfeeeeeeee.eee*016 

xmeeeeee.eeewlS 

xfeeeeeeee,eee*016 

xfeeeeeeee.ee?»81B 

xieeeeeeee.eeeiOlß 

xfeeeeeeee.eeefllß 

xfeeeeeeee.eee«I6 

xfeeeeeeee.eee*016 

xfeeeeeeee.eee«16 

xleeeeeeee.eeei®16 

xfeeeeeeee.eee#01ß 

xfeeeeeeee.eeei£)i6 

x*eeeeeeee.eee*öi6 

xfeeeeeeee.eeei®16 

xteeeeeeee.eee*01ß 

xleeeeeeee.eeei$ü6 

xlmmN.KHBII 

xfieeeeeeee.eee*01S 

xleeeeeeee.eee^iß 

>cBeeeeeeee.eee*dlS 

xieeeeteet.ee&QlS 

x8eeeeeeee.eee*816 

xleeeeeeee.eee*J16 

xieeeeeeee.eee)®16 

xieeeeeeee.eee*016 

xieeeeeeee.eeeiölß 

x«eeeeeeee.eee*01ß 

xieeeeeeee.eeeiHUB 

xieeeeeeee.eeeiSlB 

xleeeeeeee.ttexQlß 

xleeteeeee.ew^lß 

xieeeeeeee.eee*)16 

xieeeeeeee,eeei$16 

xieeeeeeee.eeeiSlB 

xfeeeeeeee.eee»31B 
xfeeeeeeee.eee*Ö16 
x#eeeeeeee,eee*31ß 
xleeeeeeee,eee*916 
xfeeeeeeee,eee*016 
xfeeeeeeee.eee*0I6 
xleeeeeeee.ee e*S16 
xieeeeeeee.eee*816 
xleeeeeeee.eee^lB 


<ö> Read-Only Set./Loe, 
(S> Systen Set./Loe. 


(E> File loesdien 
<8> Heue UsernuMier 


(R> Heuer Kane 
<SPftCE> Ende 


CPCBW 833 frei j Nsfcnn 81.00 (c) by HH-UserStfi { ProyrawinsUUation 


Starttrack bei ‘Diskette fomtieren ■ (880): 
Endtrack bei ‘Didcette fmutiern * <Ö41>: 

Diskette nach remitieren verifizieren CJ>: J 

BerHWüse&s:» 

<D: ft 


Ouel 

Ziel 


PresrMH abspeicberti <N>: | 


&K3 <»: . 


Bild 3: Alle ö4 Direcloryeinträge bei "Directory ändern 


Bild 4: ProgramminstalUnion 


nehmen. Am Ende dieses Programm- 
lei ls werden Sie gefragt, ob Sie das Pro¬ 
gramm mit den geänderten Grundein¬ 
stellungen speichern wollen. 

Voreinstellungen: 


Starttrack bei Diskette formatieren: 0 
Endtrack bei Diskette formatieren: 41 
(Betriebssystem 39) Diskette nach For¬ 
matieren verifizieren: <J> Starttrack bei 
Diskette kopieren: 0 Endtrack bei Dis¬ 
kette kopieren: 39 Quellaufwerk: A 
Ziellaufwerk: A 


Programmende: 


Sie können den Diskmanager immer 
dann beenden, wenn Sie sich im Haupt¬ 
menü befinden. Zum Beenden drücken 
Sie dann die drei Tasten <SH1FT>, 
<CTRL> und <ESC> auf einmal. Der 
Computer wird dadurch neu gestartet. 


Fehlermeldungen: 


Alle Fehlermeldungen sind ausführlich 
und in Deutsch. 


Diskettenfehler: 

Es werden Laufwerk, Sektor. Block und 
gegebenenfalls die Datei, bei dem der 
Fehler auftrat, ausgegeben. Je nach Feh¬ 
lerart haben Sie verschiedene Möglich¬ 
keiten, das Programm fortzusetzen: 


<A>bbrechen - Rückkehr ins Haupt¬ 
menü; 

<I>gnorieren - das Programm arbeitet 
so weiter, als ob der Fehler nicht aufge¬ 
treten wäre>; 

<W>iederholen - der Vorgang, der 
durch einen Diskettenfehler abgebro¬ 
chen wurde, wird noch einmal durchge¬ 
führt. 


Achtung: Wenn Sie "Abbrechen" wäh¬ 
len oder den Fehler ignorieren lassen, 
dann sind auf der Zieldiskette die Daten 
unvollständig oder fehlerhaft. 


Bei Fehlern beseitigen Sie, wenn das 
möglich ist, die Fehlerursache und wäh¬ 
len dann <W> für Wiederholen. Wenn 
mehrmaliges Wiederholen fehlschlägt, 


wählen Sie <A> für Abbrechen und füh¬ 
ren den Programmteil unter Umständen 
mit einer anderen Diskette noch einmal 
durch. Bei bestimmten Fehlermeldun¬ 
gen (z. B. Diskette ist voll) können Sie 
nur abbrechen. 


Schwerwiegende Fehler: 


Bei einem schwerwiegenden Fehler 
wird der augenblickliche Zustand der 
Prozessorregister ausgegeben und das 
Programm abgebrochen. Beim Normal¬ 
betrieb treten derartige Fehler nicht auf. 
Sie erscheinen immer dann, wenn 
Grenzwerte überschritten werden. 


Eine andere Ursache kann ein Program¬ 
mierfehler sein. Der Diskmanager 
schützt Ihren Rechner in solchen Fällen 
vor Beschädigungen des Schreib-/Lese- 
kopfes oder vor Daten Verlusten. Nach 
einem schwerwiegenden Fehler ist ein 
Warmstart erforderlich (siehe 
Programmende). 


(Marius Heuler/jg) 


180 DATA ED,BO,21,0,93,2b, 11,DO,11,E,7,E5, [4048] 
CD,CE,BC,Dl,CD,78,98 

190 DATA CC,18,A2,11,0,80,CD,78,98,DC,18,A [2020] 
2,E5,CD,3,B9,CD,9,B9 

200 DATA El,22,4C,0,11,DO,11,AF,ED,52,7C,E [3140] 
6,FC,F5,57,1E,0,2A,4C 

210 DATA 0,AF,ED,52,22,48,0,E,0,CD,15,B9,7 [2981] 
D,32,55,0,F3,21,0 

220 DATA 40,1,C0,7F,ED,49,3E,FF,77,E,C4,ED [2982] 
,49,AF,77,E,C0,ED,49 

230 DATA FB,7E,67,22,4E,0,C1,CB,38,CB,38,B [1792] 
7,78,28,2,C6,40,32,56 

240 DATA 0,C9,2A,7D,BE,3E,9,11,A0,1,19,77, [2270] 
11,40,0,19,77,3D,32 

250 DATA 57,0,11,DO,0,19,22,52,0,3E,8,32,6 [2695] 
6,BE,3E,FF,32,78,BE 

260 DATA 21,0,2,22,46,BE,3E,C3,CD,Bl,BB,EB [2984] 
,21,A6,A8,1,F,0,ED 

270 DATA B0,C9,3E,2,CD,E,BC,21,DF,A8,CD,B9 [2581] 
,97,CD,DF,94,21,C2,A9 

280 DATA CD,B9,97,3A,55,0,21,CB,A9,6,3,FE, [3200] 
1,38,A,23,23,23,28 

290 DATA 5,23,23,23,6,4,7E,CD,5A,BB,23,10, [4118] 
F9,3E,20,CD,5A,BB,CD 

300 DATA 5A,BB,3A,56,0,CD,55,98,21,D5,A9,C [3543] 
D,B9,97,CD,DF,94,C9,F5 

Listing DISKMAN.LDR 


für 464-664-6128 


10 /***************************** [1143] 

20 '* Listing DISKMAN * [1342] 

30 '* all Rights by * [893] 

40 '* M.Heuler * [650] 

50 '* & PC International * [593] 

60 '***************************** [1143] 

70 ' [117] 

80 MEMORY &6FFF [158] 

90 FOR x=0 TO &1D20:READ aS [905] 

100 POKE &7000+X,VAL("&"+a$) [638] 

110 NEXT [350] 

120 SAVE"diskman. ",b,&7000,&1D20,&7000 [2021] 

130 DATA 21,0,70,11,0,93,1,20,ID,ED,BO,21, [2750] 
11,93,C3,16,BD,CD,54 

140 DATA 93,CD,D3,93,CD,C,94,CD,8F,94,31,0 [3018] 
,CO,3E,38,CD,55,94,3E 

150 DATA 4E,CD,C3,97,21,C9,A8,CD,97,A2,C,D [1662] 
,CA,D4,9B,D,CA,87,9B 

160 DATA D,CA,87,9A,D,CA,A2,A2,D,CA,AA,A3, [3675] 
D,CA,39,A4,D,CA,D9 

170 DATA A5,D,CA,1E,A7,C3,1D,93,21,40,0,11 [3003] 
, 41,0,1,BF,92,AF,77 


Listing DISKMAN.LDR 

























310 DATA 21,F1,C0,11,80,4F,E,0,CD,47,BC,21 [2842] 
,51,F0,11,9,4E,E,0 

320 DATA CD,47,BC,21,Fl,CD,11,25,4E,E,0,CD [2555] 

,47,BC,CD,5E,9F,CD,DF 

330 DATA 94,AF,CD,EA,94,21,D9,A8,CD,B9,97, [3267] 
Fl,CD,C3,97,CD,DF,94,C9 

340 DATA 21,DC,A9,6,6,C5,CD,B9,97,CD,DF,94 [4333] 
,23,CI,10,F5, CD, 18, BB 

350 DATA C9,23,E5,DD,El,DD,5E,0,DD,56,1,DD [3157] 

,6E,2,26,0,29,E5,D5 

360 DATA CD,EA,BB,Dl,El,DD,7E,4,CB,7F,28,9 [2781] 

,E6,3,57,DD,5E,3,C3 

370 DATA F6,BB,E6,3,67,DD,6E,3,C3,F6,BB,23 [3730] 
,5E,23,56,23,6E,26,0 

380 DATA 29,C3,C0,BB,AF,18,2,3E,l,32,54,O, [1982] 
C3,6 3,BB,FE,FF,2 8,E 

390 DATA F5,E6,7F,CD,B4,BB,F1,E6,80,C8,32, [2125] 
45,0,C9,3A,45,0,C3,B4 

400 DATA BB,23,5E,23,56,23,6E,26,0,29,C3,F [4209] 
6,BB,D5,C5,CD,16,95,CI 

410 DATA Dlt C9 , ED,5B , 4A,0 , CD,78 , 98 , D8 , ED , 4 [2974] 
B,4E,0,78,B7,C8,21,0 

420 DATA 80,22,4A,0,C,79,FE,5,37,3F,C8,4F, [2754] 

436 C dÄtA , 7F , ,Ed!79,21,0,40,37,C9,C,3A,57,0, [3384] 

440 DATA 21^ 3C,CO,AF,32,40,0,C9,DD,21,3F,C [3345] 

35? E DMA 3 2l!42!cS!l8?F4,CD,4C,95,18,3,CD,5 [3034] 
5,95,FD,70,4,CD,AB,96 

460 DATA CD,8B,95,CD,42,95,18,10,CD,4C,95, [3704] 

476 3 DATA 96,FD,76,4)CI,D5,E5,C5,DD,E5,FD,E [2746] 

48<} D DATÄ 7E, 6,81,4F,50,7A, FE, 2A, D4,18, A2 , F [3033] 

490 E DATA B 22!58'0 E 3E°7,32,5A,0,DF,58,0,CD,3 [2155] 

500 6 DATA El,Dl,30,CO,D5,11,0,2,19,Dl,C9,CD [3285] 

510*DATA 5 6^36^2A^D,BE,11,AO,1,19,77,47,FD [4170] 
,5E,0,83,4B, 5F, 79 , FD _ 

520 DATA 56,2,2A,52,0,E5,72,23,36,0,23,77, [1585 
23,36,2,23,C6,5,BB „ 

530 DATA 38,2,D6,9,10,ED,El,7A,FE,2A,D4,18 [2654 
,A2,FD,5 E,1,3 E,7, DD 

540 DATA 22,58,0,32,5A,0,FD,E5,DD,E5,DF,58 [2555 

,0,CD,3F,96,30,10,FD „ __ 

550 DATA 46,0,C5,CD,1E,9A,CI,FD,70,0,B8,37 [1980 
,28,1,3F,DD,El,FD,El 

560 DATA C1,D1,E1,30,94,C9,3A,5C,0,B7,C8,C [4185 
3,CA,95,DD,21,4C,BE,DD Ä „ r ,,_. 

570 DATA 7E,0,E6,C0,37,C8,DD,CB,0,5E,6,93, [3274 
20,72,DD, 7E, 1, CB, 6F 

580 DATA 6,DB,20,69,CB,67,6,DC,20,63,CB,57 [3705 
,6,DD,20,5D,CB,4F,6 

590 DATA 94,20,57,CB,47,6,DF,20,51,DD,7E,2 [1455 
,CB,6F,6,DD,20,48,CB 

600 DATA 67,6,DE,20,42,3A,4D,BE,87,D8,6,D8 [3308 
,18,39,D5,E5,68,26,0 

610 DATA E5,Dl,29,29,29,19,6,0,9,CB,3C,CB, [2561 
ID,45,El,Dl,FD,7E,0 

620 DATA FE,41,C0,78,D6,9,47,C9,E5,68,26,0 [3221 
.29,11,9,0,E5,C1,CD 

630 DATA A3,98,41,4B,El,FD,7E,0,FE,41,CO,4 [2426 
,4,C9,78,E5,C5,F5,3E 

640 DATA 81,CD,EA,94,21,Fl,CD,11,25,4E,E,0 [3167 
,CD,47,BC,CD,DF,94,21 

650 DATA 86,AB,CD,B9,97,Fl,CD,41,97,CD,7,9 [3250 
7,F5,3E,FF,CD,EA,94,21 

660 DATA Fl,CD,11,25,4E,E,0,CD,47,BC,Fl,CI [2724 
,El,FE,41,CA,ID,93,FE 

670 DATA 49,37,C8,3F,C9,CD,9,BB,38,FB,CD,8 [4039 
1,BB,CD,27,97,E5,CD,33 

680 DATA 97,El,38,7,3E,7,CD,5A,BB,18,E7,CD [1911 
, 5A,BB,CD,84,BB,C9,CD 

690 DATA 6,BB,FE,61,D8,FE,7B,DO,C6,EO,C9,4 [3184 
6,23,E,0,BE,37,C8,C 

700 DATA 23,10,F9,37,3F,C9,F5,3E,16,CD,C3, [2719 

97,21,8B,AB,CD,D3,94,Fl 

710 DATA F5,E6,3F,CD,C3,97,CD,DF,94,21,3,B [2485 
,CD,75,BB,Fl,CB,7F,28 

720 DATA B,CB,77,28,E,3E,10,21,BE,A8,18,56 [2821 
,3E,E,21,B9,A8,18,4F 

730 DATA 3E,F,21,BB,A8,18,48,3E,5,18,44,3E [286( 
,6,18,40,7C,B5,C8,23 

740 DATA 3E,4,CD,C3,97,CD,90,97,C9,6,8,CD, [249. 
4B,98,3E,2E,CD,5A,BB 

750 DATA 6,3,CD,4B,98,C9,E5,D5,C5,F5,4F,3A [2112 
,54,0,B7,79,28,5,CD 

760 DATA FC,BB,18,3,CD,5D,BB,Fl,CI,Dl,El,C [3384 
9,7E,FE,FF,C8,CD,5A,BB 

770 DATA 23,18,F6,E5,47,4,21,9C,AB,7E,23,B [297t 
7,20,FB,10,F9,7E,23,B7 

Listing DISKMAN.LDR 


[2125] 

[4209] 

[2974] 

[2754] 

[3384] 

[3345] 

[3034] 

[3704] 

[2746] 

[3033] 

[2155] 

[3285] 

[4170] 

[1585] 

[2654] 

[2555] 

[1980] 

[4185] 

[3274] 

[3705] 

[1455] 


[2561] 

[ 3221 ] 
[2426] 
[3167] 
[3250] 
[2724] 
[4039] 
[1911] 
[3184] 
[2719] 
[2485] 
[2821] 
[2868] 
[2497] 
[ 2112 ] 
[3384] 
[2976] 


780 DATA 28,9,FE,80,30,7,CD,5A,BB,18,F2,El [ 
,C9,E6,7F,E5,C5,D5,CD 

790 DATA ED,97,Dl,CI,El,18,E3,B7,28,12,FE, [ 
1,28,19,FE,2,28,IE,FE 

800 DATA 3,28,27,FE,16,28,3C,18,CI,CD,C3,9 [ 
7,FD,7E,1,C6,41,C3,5A 

810 DATA BB,CD,C3,97,FD,7E,2,C3,55,98,CD,C [ 
3,97,FD,7E,3,FD,6E,0 

820 DATA 85,C3,7E,98,CD,C3,97,FD,7E,4,CD,7 [ 
E,98,FE,2,DA,7B,97,FE 

830 DATA F0,D2,7F,97,2A,67,0,C3,83,97,3A,4 [ 
0,0,B7,21,8F,AB,28,3 

840 DATA 21,94,AB,C3,B9,97,7E,23,E6,7F,CD, [ 
AO ,97,10,F7,C9,C5,D6,64 

850 DATA 6,31,30,4,C6,64,6,30,E,2F,D6,A,C, [ 
30,FB,F5,78,CD,AO 

860 DATA 97,79,CD,AO,97,F1,C6,3A,CD,AO,97, [ 
CI,C9,7C,BA,CO,7D,BB,C9 

870 DATA F5,CD,84,98,F1,C9,F5,1F,1F,1F,1F, [ 

CD,8D,98,F1,E6,F,FE,A 

880 DATA 38,2,C6,7,C6,30,C3,AO,97,7C,CD,7E \ 
, 98,7D,CD,7E,98,C9,7B 

890 DATA B2,CC,18,A2,21,0,0,78,6,10,CB,11, I 
17,CB,15,CB,14,E5,ED 

900 DATA 52,3F,38,1,E3,33,33,10,EE,EB,CB,1 I 
1,69,17,67,C9,ED,5B,52 

910 DATA 0,E,0,47,21,F,AB,7E,23,B7,20,FB,1 
0,F9,7E,23,B7,C8,FE 

920 DATA 80,30,5,12,C,13,18,F3,E5,FE,FF,28 
,C,FE,FE,28,13,E6,7F 

930 DATA CD,CD,98,E1,18,E2,2A,43,0,3E,41,8 
5,12,13,El,18,D7,2A,43 

940 DATA 0,6C,18,F2,22,41,0,ED,53,43,0,F5, 
3E,87,CD,EA,94,3E,7 

950 DATA CD,5A,BB,CD,9,BB,38,FB,21,80,C7,1 

I, 8,5 0,E,0,CD,47,BC 

960 DATA Fl,CD,C7,98,2A,52,0,6,FF,54,5D,4, 
78,B9,20,4,6,0,62 

970 DATA 6B,E5,D5,C5,CD,19,BD,CD,91,99,CI, 
21,19,50,CD,75,BB,Dl,El 

980 DATA 7E,23,CD,5A,BB,CD,9,BB,30,DB,C5,C 
D,2A,97,E5,2A,41,0,CD 

990 DATA 33,97,F5,79,B7,C2,78,99,21,80,C7, 

II, 8,50,E,0,CD,47,BC 

1000 DATA C3,1D,93,F1,E1,C1,30,B7,F5,3E,FF 
,CD,EA,94,21,80,C7,11,8 

1010 DATA 50,E,0,CD,47,BC,79,F1,C9,6,8,21, 
81,C7,11,80,C7,C5,1 

1020 DATA 4F,0,E5,D5,ED,BO,D1,E1,7C,C6,8,F 
6,CO,67,57,CI,10,EC,C9 

1030 DATA 3E,6,CD,C1,99,FE,FF,6,1F,C0,C3,C 
4,96,FD,21,62,0,3E,7 

1040 DATA E5,D5,C5,47,3A,5B,0,B7,20,A,78,2 
1,C2,A8,FD,5E,1,CD,7 

1050 DATA 99,FD,7E,0,B7,20,4,CD,IE,9A,37 , C 
1,D1,El,C9,CD,E9,99,C3 

1060 DATA AE,99,AF,21,5D,0,6,E,77,23,10,FC 
,FD,21,5D,0,FD,73,1 

1070 DATA 7A,32,63,0,AB,32,5B,0,C8,3A,63,0 
, 57,21,C2,A8,3E,9,C3 

1080 DATA 7,99,CD,76,C9,6,3,C5,CD,5D,C5,CI 
,D8,5,20,F7,C9,AF,32 

1090 DATA 40,0,FD,5E,1,21,F,9A,22,58,0,3E, 
7,32,5A,0,FD,E5,DF 

1100 DATA 58,0,DD,21,4C,BE,FD,El,DD,7E, 0 , E 
6,CO,28,11,DD,CB,0,5E 

1110 DATA 6,93,20,4,3E,FF,18,13,CD,C4,96,1 
8,CB,3A,51,BE,E6,CO,FE 

1120 DATA 40,28,4,FE,CO,20,EA,3C,FD,77,0,C 
9,2A,4C,0,22,4A,0,21 Jr , n 

1130 DATA 0,0,22,67,0,2A,4E,0,2E,0,22,4E,0 
,2A,48,0,22,46,0 

1140 DATA C5,1,C0,7F,ED,49,CI,C9,3E,30,CD, 
55,94,21,7B,A9,CD,B9,97 

1150 DATA CD,DF,94,21,9E,A9,CD,B9,97,CD,DF 
, 94,ED,5B,18,BO,CD,E9,99 

1160 DATA ED,5B,16,B0,43,E,0,C5,D5,CD,7C,9 
B,CD,65,9A,Dl,CI,ED,43 

1170 DATA 50,0,CD,7B,95,CD,42,95,7A,B8,38, 
B,CD,E,95,38,Fl,CD,DA 

1180 DATA .9A,C3,AC,9A,CD,DA,9A,3E,2C,CD,72 
,A3,C3,87,9A,D5,C5,FD,E5 

1190 DATA FD,56,2,FD,5E,3,D5,CD,7F,9B,CD,3 
F,9B,ED,4B,50,0,CD,65 

1200 DATA 9A,Dl,CD,12,9B,E5,C5,E1,CD,78,98 
,El,28,B,CD,42,95,CD,E 

1210 DATA 95,D4,18,A2,18,E9,CD,71,9B,FD,El 
,C1,D1,C9,79,B7,C2,80,95 

1220 DATA FD,70,2,CD,37,96,C3,80,95,3E,26, 
CD,C3,97,3E,24,CD,C3,97 „ „„ „ £ 

1230 DATA FD,7E,0,FE,FF,6,23,28,8,FE,41,6, 
21,28,2,6,22,78,C3 

1240 DATA C3,97,CD,BB,99,DO,47,3A,5D,0,FD, 
77,0,B8,3E,0,28,2,3E 


Listing DISKMAN.LDR 


[3158] 


[1654] 

[2448] 

[3618] 

[3832] 

[3755] 

[4212] 

[2622] 

[3037] 

[2482] 


[3931] 

[3299] 

[3564] 

[1868] 

[3306] 

[2808] 

[2543] 

[2735] 

[4056] 

[3133] 

[3051] 

[2288] 

[3296] 

[3700] 

[3276] 

[3459] 

[3808] 

[2159] 

[3623] 

[2714] 

[2833] 

[3572] 

[2463] 

[2987] 

[3111] 

[3376] 

[3210] 

[2971] 

[3379] 

[3908] 

1 [3497] 
I [2196] 
. [2346] 
, [2419] 


[3149] 


40 PC 6/7’91 




Programm—i 


1250 DATA FF,32,5C,0,F5,C5 ,CD,71,9B,3E,24, [2827] 
00,03,97,01,78,CD,2D,9B 

1260 DATA Fl,C8,3E,25,CD,03,97,FD,7E,0,CD, [3941] 
2D,9B,C9,3E,3,CD,EA,94 

1270 DATA 3E,26,CD,03,97,09,CD,AE,99,3E,2, [3251] 
CD,EA,94,C3,20,9B,21,69 

1280 DATA 0,22,A6,1,3E,36,CD,55,94,ED,5B,1 [3045] 
8,BO,CD,E0,A3,3A,A9,1 

1290 DATA B7,CA,1D,93,21,4F,9D,22,B5,1,3A, [2569] 
A8,1,47,DD,2A,A6,1,11 

1300 DATA D,0,DD,6E,0,DD,66,1,19,CB,FE,DD, [1637] 
23,DD,23,10,Fl,CD,5D 

1310 DATA AO,3A,AA,1,47,E,0,CD,C,9C,3E,4D, [3037] 
CD,72,A3,C3,87,9B,21 

1320 DATA 69,0,22,A6,1,3E,31,CD,55,94,ED,5 [3561] 

B, 18,BO,CD,EO,A3,CD,EC 

1330 DATA 9B,C3,1D,93,3A,A9,1,B7,CA,ID,93, [2121] 
21,FC,9C,22,B5,1,21,8A 

1340 DATA 9E,CD,95,9E,CD,5D,AO,3A,AA,1,B7, [2386] 
CA,1D,93,47,E,0,C5,CD 

1350 DATA 65,9A,FD,21,DO,1,CI,79,32,B2,1,3 [2622] 

E, FF,32,B4,1,CD,6E,9D 

1360 DATA DD,22,67,0,DD,7E,F,11,10,0,DD,19 [3100] 
, C6,7,CB,3F,CB,3F,CB 

1370 DATA 3F,57,B7,28,21,DD,7E,0,DD,23,D5, [4198] 
FD, E5, DD, E5 , C5,47 , FD, 21 

1380 DATA 5D,0,CD,65,95,CD,E,95,CI,30,30,D [3957] 
D,El,FD,El,Dl,15,20,DF 

1390 DATA C,79,B8,38,BF,AF,32,B4,1,CD,82,9 [2803] 

C, CD,81,9D,3A,AA,1,47 

1400 DATA 3A,A9,1,80,32,A9,1,FD,21,62,0,21 [2400] 
,DO,9,22,AB,1,CD,28 

1410 DATA A4,C9,C5,41,3A,B2,1,4F,E5,C5,CD, [3067] 
BB,99,2A,B5,1,30,1,E9 

1420 DATA CD,65,9A,CI,FD,21,DO,1,CD,6E,9D, [2413] 
DD,22,67,0,DD,7E,F,11 

1430 DATA 10,0,DD,19,C6,7,CB,3F,CB,3F,CB,3 [3300] 

F, 57,B7,28,27,CD,30,Al 

1440 DATA DD,73,0,DD,23,D5,FD,E5,DD,E5,C5, [2410] 
FD,21,62,0,43,CD,6A,95 

1450 DATA CD,E,95,28,3,D4,18,A2,C1,DD,El,F [2934] 

D, E1,D1,15,20,D9,C,79 

1460 DATA B8,20,B9,El,CI,3A,B4,1,B7,C8,C5, [3822] 
E5,FD,21,5D,0,CD,AE,9 9 

1470 DATA El,CI,DD,El,FD,E1,D1,C3,C,9C,21, [3985] 
DO,9,3A,62,0,FE,FF,6 

1480 DATA 1F,CC,C4,96,22,AB,1,6,0,CD,65,95 [1787] 
,6,1,CD,65,95,3E,40 

1490 DATA 32,A9,1,CD,E8,Al,CD,98,9D,CD,EE, [3476] 
9D,CD,5A,Al,FD,21,62,0 

1500 DATA CD,CC,AO,21,9E,A9,CD,78,A2,3A,BO [3633] 
,1,21,B3,1,BE,6,15,DA 

1510 DATA C4,96,3A,AF,1,21,AA,1,BE,6,27,DA [2863] 
,C4,96,C3,93,9C,21,D0 

1520 DATA 9,3A,62,0,FE,FF,6,1F,CC,C4,96,22 [1743] 

,AB,1,6,40,C5,6,20 

1530 DATA 36,E5,23,10,FB,C1,10,F5,18,B3,E5 [3297] 

,FD,E5,DD,El,69,26,0,29 

1540 DATA 29,29,29,29,54,5D,DD,19,El,C9,3A [2789] 

,AA,1,6F,26,0,29,29,29 

1550 DATA 29,29,44,4D,21,DO,1,ED,5B,AD,1,E [3185] 
D,B0,C9,6,3F,2A,AB,1 

1560 DATA E5,11,20,0,19,EB,El,AF,32,A3,1,C [3249] 
5,CD,C2,9D,DC,D8,9D,CI 

1570 DATA D5,D5,E1,11,20,0,19,EB,E1,10,ED, [3590] 
3A, A3,1, B7,20,D7,C9,E5 

1580 DATA D5,CD,CA,9D,D1,E1,C9,6,D,1A,FE,3 [2619] 
F,28,2,BE,CO,23,13,10 

1590 DATA F5,C9,6,20,E5,D5,1A,4E,EB,71,12, [3011] 
EB,23,13,10,F6,3E,FF,32 

1600 DATA A3,1,Dl,El,C9,11,20,0,E,0,2A,AB, [1769] 
1,6,40,7E,FE,10,30 

1610 DATA 4,19,C,10,F7,79,32,A9,1,22,AD,1, [2492] 
C9,E,0,AF,32,A8,1 

1620 DATA 2A,A6,1,22,A4,1,2A,AB,1,3A,A9,1, [3165] 
B7,C8,47,C5,CD,C2,9D 

1630 DATA CI,CC,38,9E,C5,1,20,0,9,CI,10,FO [2573] 

,CD,38,9E,D,79,32,A8 

1640 DATA 1,B7,C9,E5,DD,El,D5,ED,5B,A4,1,7 [3637] 
D,12,13,7C,12,13,ED,53 

1650 DATA A4,1,D1,C,C9,3A,A9,1,47,DD,2A,AB [2165] 

,1,11,20,0,DD,36,D 

1660 DATA 0,DD,36,E,0,DD,19,10,F4,C9,C5,E5 [2772] 

,CD,69,BB,D1,7D,83,6F 

1670 DATA 7C,82,67,CD,1A,BC,E,12,E5,6,8,7E [2852] 

,2F,77,CD,26,BC,10,F8 

1680 DATA El,CD,20,BC,D,20,EE,CI,C9,FE,EO, [2423] 
28,65,FE;D,CA,2A,9F,18 

1690 DATA 9,6,0,22,Al,1,78,CD,6B,9F,CD,18, [3484] 
BB,CD,2A,97,48,FE,FO 

1700 DATA 28,27,FE,Fl,28,2A,FE,F2,28,38,FE [2482] 

,F3,28,2A,FE,20,28,9,FE 

1710 DATA FC,CA,ID,93,2A,Al,1,E9,79,C3,6B, [4368] 
9F,79,CD,6B,9F,78,CD,6B 

Listing DISKMAN.LDR 


1720 DATA 9F,18,CE,78,B7,28,CA,5,18,EF,78, [3768] 
FE,3F,30,C2,4,18,E7,78 

1730 DATA FE,30,30,BA,C6,10,47,18,DD,78,FE [2296] 
,10,38,BO,D6,10,47,18,D3 

1740 DATA CD,F9,9E,C3,9E,9E,3A,A8,1,3D,B8, [2642] 
D8,78,CD,D9,9F,78,CD,3C 

1750 DATA 9F,C5,7C,C6,13,67,2C,CD,75,BB,DD [2333] 
,CB,D,7E,3E,3E,DD,CB,D 

1760 DATA FE,28,6,3E,20,DD,CB,D,BE,CD,5A,B [3756] 
B,CD,5E,9F,C1,C9,C5,3A 

1770 DATA A8,1,3D,F5,CD,F9,9E,F1,4,B8,30,F [3382] 
7,C1,C3,9E,9E,2E,0,CB 

1780 DATA 3F,CB,ID,CB,3F,CB,1D,CB,3F,CB,1D [3582] 
,CB,3F,CB,ID,CB,ID,CB,ID 

1790 DATA CB,ID,CB,ID,67,87,87,84,87,87,67 [2127] 
,C9,21,3F,C1,6,80,CB,C6 

1800 DATA CD,26,BC,10,F9,C9,CD,3C,9F,C3,65 [2216] 
,9E,3A,A8,1,B7,C8,4F,6 

1810 DATA 0,CD,84,9F,CD,9B,9F,4,D,20,F6,C9 [2690] 
,3A,A8,1,3D,B8,D8,C5 

1820 DATA 78,CD,D9,9F,78,CD,3C,9F,24,2C,CD [3211] 
,75,BB,CI,AF,C9,C5,DD,E5 

1830 DATA El,7E,FE,E5,20,4,3E,48,18,6,FE,A [2401] 
,38,2,C6,7,C6,30,CD 

1840 DATA AO,97,23,DD,CB,A,7E,3E,23,20,2,3 [2678] 
E,20,CD,AO,97,CD,90,97 

1850 DATA DD,CB,9,7E,3E,2A,20,2,3E,20,CD,A [2092] 
0,97,DD,7E,E,CD,55,98 

1860 DATA C1,C9,ED,5B,A6,1,6F,26,0,29,19,5 [2497] 
E,23,56,D5,DD,El,C9,FD 

1870 DATA E5,2E,0,3A,A9,1,67,B7,28,61,FD,2 [2354] 
A,A6,1,DD,2A,AB,1,6 

1880 DATA 0,48,DD,E5,DD,7E,F,FE,81,38,2,3E [2352] 
,80,C6,7,CB,3F,CB,3F 

1890 DATA CB,3F,80,47,C,11,20,0,DD,E5,DD,1 [2757] 
9,DD,E5,Dl,DD,El,25,28 

1900 DATA 14,C5,E5,DD,E5,El,CD,C2,9D,78,FE [2515] 
,1,El,CI,20,5,D5,DD,El 

1910 DATA 18,C9,DD,El,F5,DD,71,D,DD,70,E,D [2726] 

D, E5,CI,FD,71,0,FD,70 

1920 DATA 1,FD,23,FD,23,D5,DD,El,2C,Fl,20, [2543] 
A7,FD,El,7D,32,A8,l,Bt 

1930 DATA C9,3A,A8,1,47,E,0,16,0,2A,AB,1,E [2974] 

5, DD,El,C5,DD,CB,D 

1940 DATA 7E,20,C,DD,E5,CD,9E,AO,El,CI,5,2 [2124] 

8.19.18, EA,DD,7 E,E,8 2 

1950 DATA 57,DD,7E,D,E6,7F,CD,BD,AO,CI,DD, [3097] 
7E,D, E6.,7F, 81,4F, 10 ,D3 

1960 DATA 79,32,AA,1,7A,32,B3,1,C9,DD,7E,D [2780] 
,E6,7F,D5,E5,CD,BD,AO 

1970 DATA E5,54,5D,2A,AD,1,AF,ED,52,44,4D, [2855] 
El,Dl,78,Bl,28,2,ED,BO 

1980 DATA Dl,C9,6F,26,0,29,29,29,29,29,05, [3408] 
DD, E5 , Dl, 19 , Dl, C9,3A, A9 

1990 DATA 1,47,3E,40,90,32,AF,1,E,0,FE,40, [3161] 
30,3A,2A,AB,1,11,10 

2000 DATA 0,19,11,20,0,E5,C5,E5,DD,El,DD,7 [3678] 

E, FO,FE,10,30,IE,DD,7E 

2010 DATA FF,FE,81,30,17,C6,7,CB,3F,CB,3F, [2407] 
CB,3F,B7,28,C,47,E5,7E 

2020 DATA CD,4B,Al,34,El,23,C,10,F5,Fl,El, [3550] 
47,19,10,DO,3E,B2,C5,91 

2030 DATA 4F,FD,7E,0,FE,CI,79,28,2,D6,9,32 [3464] 
,B0,1,C1,81,C6,2,32 

2040 DATA Bl,1,C9,E5,C5,21,EB,0,3A,Bl,1,47 [3102] 
,E,0,7E,B7,28,7,C 

2050 DATA 23,10,F8,CD,18,A2,59,34,CI,El,C9 [2961] 

,D5,FE,B5,38,1,AF,21,EB 

2060 DATA 0,16,0,5F,19,Dl,C9,6,B2,AF,21,EB [4035] 
,0,36,FD,23,36,FD,23 

2070 DATA 77,10,FC,C9,DD,E5,E5,C5,3A,A8,1, [3336] 
47,DD,2A,A6,1,DD,6E,0 

2080 DATA DD,66,1,3E,E5,77,DD,23,DD,23,10, [2246] 
Fl,CI,El,DD,El,C9,C5,D5 

2090 DATA E5,DD,E5,3A,A8,1,47,DD,2A,A6,1,D [4039] 
D,5E,0,DD,56,1,C5,E5 

2100 DATA 1,C,0,ED,BO,El,CI,DD,23,DD,23,10 [2833] 

,EB,DD,El,El,Dl,CI,C9 

2110 DATA D5,C5,11,B7,1,1,9,0 ED,BO,3E,42, [1722] 
12,13,3E,41,12,13,3E 

2120 DATA 4B,12,21,B7,1,CI,Dl,C9,DD,E5,E5, [3153] 
C5 , D5,11, C3,1, D5,1, C 

2130 DATA 0,ED,B0,3E,3F,12,D1,CD,9,9E,Dl,C [3714] 
1,El,DD,El,C9,DD,21,DO 

2140 DATA 1,3A,AA,1,47,DD,E5,El,CD,CD,Al,2 [2978] 

8.18, E5,CD,B2,Al,CD,CD 

2150 DATA Al,28,3,CD,6A,Al,El,CD,CD,Al,28, [2684] 

6, CD,B2,Al,CD,8A,Al,11 

2160 DATA 20,0,DD,19,10,D9,C9,ED,73,9F,1,F [2212] 
D,E5,DD,E5,C5,D5,E5,F5 

2170 DATA DD,21,0,0,DD,39,CD,4E,BB,1,C0,7F [3330] 

,ED, 49,21,F,A8,CD,B9 

2180 DATA 97,6,7,CD,63,A2,2A,9F,1,23,23,CD [3348] 

,9A,98,21,69,A8,CD,B9 
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2190 DATA 97,6,9,CD,63,A2,31,0,CO,CD,18,BB [2440] 
,CD,0,B9,3A,55,0,B7 

2200 DATA CA,64,CO,C3,58,CO,DD,6E,0,DD,66, [2387] 
1,DD,23,DD,23,CD,9A,98 

2210 DATA 3E,20,CD,5A,BB,10,EC,C9,CD,B9,97 [1936] 
,3A,BO,1,CD,55,98,21,B2 

2220 DATA A9,CD,B9,97,3A,AF,1,CD,55,98,21, [3542] 
B7,A9,CD,B9,97,CD,DF,94 

2230 DATA C9,E5,3E,28,CD,C3,97,El,CD,7,97, [2119] 
C9,3E,32,CD,55,94,3E,0 

2240 DATA CD,EA,94,3E,29,CD,C3,97,21,C5,A8 [3744] 
,CD,97,A2,CD,65,9A,3A,18 

2250 DATA BO,5F,53,CD,E9,99,C5,79,FE,2,28, [2484] 
59,B7,E,C1,28,2,E,41 

2260 DATA C5,CD,BB,99,F5,3E,2A,CD,C3,97,Fl [4255] 
,CD,2D,9B,ED,5B,1A,B0,C1 

2270 DATA FD,71,0,FD,73,2,D5,CD,CA,95,Dl,3 [3851] 

A, 1C,B0,B7,C4,54,A3,IC 

2280 DATA 7B,BA,38,EC,28,EA,CI,79,FE,2,C5, [3839] 
20,14,1,0,0,CD,65,9A 

2290 DATA CD,80,95,CD,42,95,CD,E,95,78,FE, [2501] 
2,20,F2,3E,2D,CD,72,A3 

2300 DATA FD,4E,0,C3,CF,A2,AF,FD,21,5D,0,F [2681] 
D,77,0,CD,AE,99,FE,41 

2310 DATA 28,7,6,AB,CD,C4,96,18,EA,1,0,0,C [2023] 

D, 65,9A,CD,7B,95,CD 

2320 DATA 42,95,CD,E,95,78,FE,2,20,F2,E,41 [2355] 
,FD,21,62,0,C3,CF,A2 

2330 DATA E,1,CD,63,A3,43,E,0,2A,52,0,CD,7 [3346] 

B, 95,C9,43,2A,52,0 

2340 DATA CD,7B,95,CD,42,95,78,BB,28,F3,C9 [2681] 
,F5,3E,81,CD,EA,94,3E,39 

2350 DATA CD,C3,97,Fl,CD,C3,97,21,3,F,CD,7 [2540] 
5,BB,3E,28,CD,C3,97,21 

2360 DATA B5,A8,CD,7,97,F5,21,Fl,CD,11,25, [3268] 
4E,E,0,CD,47,BC,3E,FF 

2370 DATA CD,EA,94,Fl,FE,57,C8,C3,ID,93,3E [4076] 
,33,CD,55,94,3E,0,CD,EA 

2380 DATA 94,CD,65,9A,3A,18,BO,5F,53,CD,E3 [4141] 
,99,3E,3A,CD,C3,97,FD,7E 

2390 DATA 0,CD,2D,9B,ED,5B,16,BO,E,0,CD,63 [3587] 
,A3,IC,7A,BB,30,F6,3E 

2400 DATA 2E,CD,72,A3,C3,AA,A3,CD,E9,A3,CD [4490] 
,EE,9D,C3,15,A4,D5,21,69 

2410 DATA 0,22,A6,1,21,68,A9,CD,B9,97,CD,D [2754] 
F,94,Dl,CD,E3,99,FD,21 

2420 DATA 5D,0,21,D0,1,22,AB,1,6,0,CD,65,9 [3197] 
5,6,1,CD,65,95,CD 

2430 DATA 98,9D,C9,CD,E9,9F,CD,71,9F,CD,5A [3722] 
,Al,CD,CC,AO,21,89,A9,CD 

2440 DATA 78,A2,C9,CD,4D,9E,2A,AB,1,6,0,CD [918] 

,6A,95,6,1,CD,6A,95 

2450 DATA C9,3E,34,CD,55,94,3A,18,BO,5F,53 [2906] 
,CD,EO,A3,3A,A9,1,FE,3F 

2460 DATA 6,27,D4,C4,96,3E,81,CD,EA,94,21, [2773] 
B7,1,36,0,23,36,2E,23 

2470 DATA 6,A,36,20,23,10,FB,3E,3B,CD,C3,9 [1749] 
7,6,7,21,B9,1,DD,21 

2480 DATA 20,A5,IE,20,CD,CB,A4,3E,3C,CD,C3 [3883] 
,97,6,3,21,CO,1,DD,21 

2490 DATA 20,A5,IE,20,CD,CB,A4,ED,5B,AB,1, [3742] 
13,1A,1B,FE,2E,28,4,ED 

2500 DATA 5B,AD,1,21,B7,1,1,C,0,ED,BO,AF,6 [2267] 
,14,12,13,10,FC,CD 

2510 DATA 98,9D,21,Fl,CD,11,25,4E,E,0,CD,4 [3780] 
7,BC,FD,21,5D,0,CD,28 

2520 DATA A4,3E,FF,CD,EA,94,3E,2F,CD,72,A3 [2009] 
,C3,39,A4,E5,5,E,0,CD 

2530 DATA 81,BB,CD,6,BB,57,FE,D,28,41,FE,2 [3726] 
0,38,36,FE,FC,20,6,CD 

2540 DATA 83,BB,C3,ID,93,FE,7F,28,11,30,26 [3864] 
,DD,E9,78,B9,38,20,7A,77 

2550 DATA 23,C,CD,AO,97,18,D5,79,B7,28,13, [2636] 
3E,8,CD,5A,BB,7B,CD,5A 

2560 DATA BB,3E,8,CD,5A,BB,2B,D,73,18,BE,3 [3558] 

E, 7,CD,5A,BB,18,B7,CD 

2570 DATA 83,BB,El,C9,18,CE,CD,2A,97,57,FE [3019] 
,30,38,EA,FE,47,30,E6,FE 

2580 DATA 3A,38,BE,FE,41,38,DE,18,B8,CD,2A [2693] 
,97,57,FE,21,38,D4,FE,2E 

2590 DATA 20,AC,C3,1B,A5,FE,30,DA,14,A5 , FE [2948] 
,3A,D2,14,A5,C3,FO,A4,21 

2600 DATA B7,1,E5,6,B,36,20,23,10,FB,CD,78 [2089] 
,BB,7C,F5,C6,8,CD,6F 

2610 DATA BB,3E,2E,CD,5A,BB,Fl,F5,CD,6F,BB [2177] 
,21,B7,1,6,8,DD,21,38 

2620 DATA A5,IE,20,CD,CB,A4,Fl,C6,9,CD,6F, [3335] 
BB,21,BF,1,6,3,DD,21 

2630 DATA 38,A5,IE,20,CD,CB,A4,El,C9,F5,CD [3403] 
,55,98,3E,46,CD,C3,97,DD 

2640 DATA 21,47,A5,IE,20,6,2,21,B7,1,36,20 [2973] 
,23,36,20,2B,CD,CB,A4 

2650 DATA E5,DD,El,DD,7E,0,FE,20,20,2,Fl,C [3377] 
9,57,DD,7E,1,FE,20,5F 
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2660 DATA 20,3,5A,16,30,7A,D6,30,57,87,87, [2478] 
82,87,83,D6,30,D1,C9,3E 

2670 DATA 35,CD,55,94,3A,18,BO,5F,53,CD,E9 [3745] 
,A3,3E,40,32,A9,1,CD,15 

2680 DATA A4,3E,81,CD,EA,94,3E,3D,CD,C3,97 [3467] 
,3E,FF,CD,EA,94,21,1B,A6 

2690 DATA CD,95,9E,CD,98,9D,21,Fl,CD,11,25 [3887] 
,4E,E,0,CD,47,BC,FD,21 

2700 DATA 5D,0,CD,28,A4,C3,ID,93,FE,45,CA, [3197] 
6 2,A6,FE,5 5,CA,97,A6,FE 

2710 DATA 52,CA,DB,A6,FE,53,CA,37,A6,FE,4F [2739] 
,CA,7B,A6,C3,9E,9E,CD,84 

2720 DATA 9F,DA,9E,9E,DD,46,D,11,20,0,DD,E [2481] 
5,3E,80,DD,AE,A,DD,77 

2730 DATA A,DD,19,10,F4,DD,El,79,CD,6B,9F, [3744] 
CD,9B,9F,7 9,CD,6B,9F,41 

2740 DATA C3,9E,9E,CD,84,9F,DA,9E,9E,DD,46 [2767] 
,D,ll,20,0,DD,E5,3E,E5 

2750 DATA DD,77,0,DD,19,10,F7,18,D6,CD,84, [2342] 
9 F,DA,9 E,9 E,DD,4 6,D,11 

2760 DATA 20,0,DD,E5,3E,80,DD,AE,9,DD,77,9 [3673] 
,DD,19,10,F4,18,BA,CD 

2770 DATA 84,9F,DA,9E,9E,3E,30,32,B7,1,C5, [2882] 
DD,E5,3E,3E,CD,C3,97,DD 

2780 DATA 21,22,A5,6,1,21,B7,1,IE,30,CD,CB [2817] 
,A4,CD,F,A7,3A,B7,1 

2790 DATA FE,41,38,2,D6,7,D6,30,DD,El,CI,D [1990] 

D, E5,11,20,0,DD,46,D 

2800 DATA DD,77,0,DD,19,10,F9,C3,51,A6,CD, [1305] 
84,9F,DA,9E,9E,DD,E5,C5 

2810 DATA DD,E5,3E,3F,CD,C3,97,CD,54,A5,CD [2759] 
, F, A7 , DD, El, DD, 46 , D,C5 

2820 DATA 21,B7,1,DD,E5,Dl,13,1,B,0,ED,BO, [2881] 
11,20,0,DD,19,CI,10 

2830 DATA EB,CI,C3,51,A6,3E,D,CD,5A,BB,3E, [2762] 
12,CD,5A,BB,AF,CD,EA,94 

2840 DATA C9,3E,37,CD,55,94,3E,44,CD,C3,97 [2897] 
,3A,1A,BO,CD,97,A5,32,1A 

2850 DATA BO,3E,45,CD,C3,97,3A,1B,BO,CD,97 [3050] 
,A5,32,1B,B0,3E,47,CD,C3 

2860 DATA 97,3A,IC,BO,B7,3E,4A,20,2,3E,4E, [2712] 

CD, 5A,BB,3E,46,CD,C3,97 

2870 DATA 21,D2,A8,CD,7,97,79,32,IC,BO,3E, [1849] 
42,CD,C3,97,3A,16,B0,CD 

2880 DATA 97,A5,32,16,BO,3E,43,CD,C3,97,3A [2484] 
,17,BO,CD,97,A5,32,17,BO 

2890 DATA 3E,48,21,18,BO,CD,F7,A7,3E,49,21 [3576] 
,19,BO,CD,F7,A7,3E,4A,CD 

2900 DATA C3,97,3E,4E,CD,5A,BB,3E,46,CD,C3 [2927] 
,97,21,D2,A8,CD,7,97,FE 

2910 DATA 4E,CA,ID,93,21,0,93,11,0,70,1,20 [2855] 
,1D,ED,BO,11,0,0,CD 

2920 DATA E9,99,CD,BB,99,2A,7D,BE,AF,77,11 [3139] 
,DO,1,CD,92,BC,3E,FF,32 

2930 DATA 40,0,21,E,BO,11,DO,1,6,8,CD,8C,B [1899] 
C,CD,3F,96,30,E5,21 

2940 DATA 0,70,11,20,ID,44,4D,3E,2,CD,98,B [3531] 
C,11,D0,1,F5,CD,8F,BC 

2950 DATA Fl,6,18,D4,C4,96,C3,ID,93,CD,C3, [3829] 
97,7E,E5,C6,41,CD,5A,BB 

2960 DATA 3E,46,CD,C3,97,21,D5,A8,CD,7,97, [2751] 
E1,71,C9,1F,1,1A,53,63 

2970 DATA 68,77,65,72,77,69,65,67,65,6E,64 [2700] 
,65,72,20,46,65,68,6C,65 

2980 DATA 72,2C,20,50,72,6F,67,72,61,6D,6D [2578] 
,20,61,62,67,65,62,72,6F 

2990 DATA 63,68,65,6E,D,A,20,41,46,20,20,2 [2929] 
0,48,4C,20,20,20,44,45 

3000 DATA 20,20,20,42,43,20,20,20,49,58,20 [2711] 
,20,20,49,59,20,20,20,50 

3010 DATA 43,20,20,20,53,50,A,D,FF,A,D,20, [3096] 
2D,30,20,20,20,2D,32 

3020 DATA 20,20,20,2D,34,20,20,20,2D,36,20 [1654] 
,20,20,2D,38,20,20,20,2D 

3030 DATA 41,20,20,20,2D,43,20,20,20,2D,45 [2361] 
,20,20,20,2D,46,A,D,FF 

3040 DATA 3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,3F [1831] 
,3F,0,3,D3,94,5,A3,94 

3050 DATA 0,E2,94,1,EA,94,3,2,95,3,57,41,F [2633] 
C,1,41,2,41,57,3 

3060 DATA 41,57,49,2,FC,20,3,44,56,43,8,45 [2671] 
,4F,4B,46,56,4E,44,50 

3070 DATA 2,4E,4A,3,41,42,43,0,B6,1,C4,2,F [2463] 
F,E,0,F,1,17,0 

3080 DATA IC,0,0,0,IC,1,1A,1A,ID,A,A,1,0,0 [2199] 
,9,7F,82,1,0 

3090 DATA 0,C7,7F,82,1,0,0,BA,7F,82,1,0,0, [1957] 

BO, 7F,82,1,0,0 

3100 DATA 2F,7F,82,1,7F,2,9,8E,1,1,0,0,9,8 [2513] 

E, 1,1,Al,0,BA 

3110 DATA 8E,1,1,BO,1,BA,8E,1,3,0,1A,1,4F, [2731] 
3,12,3,1,1A,1 

3120 DATA 4E,14,16,3,2,1A, 4,26,3,12,3,3,1A [3277] 
,2C,4E,3,12,0,AA 
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3130 DATA 0,C4,2,44,69,73,6B,6D,61,6E,20,5 [3097] 
6,31,2E,30,30,20,28,63 

3140 DATA 29,20,62,79,20,40,48,20,55,73,65 [2186] 
,72,53,6F,66,74,FF,1,A0 

3150 DATA 0,2F,60,1,1,40,1,2F,60,1,1,EO,1, [2292] 
2F,60,1,FF,3,2 

3160 DATA 1,40,1,2F,74,1,1,3E,1,2F,74,1,0, [2473] 
10,0,B8,2,51,75 

3170 DATA 65,6C,6C,64,69,73,6B,65,74,74,65 [3758] 
,3A,20,FF,0,50,1,B8,2 

3180 DATA 5A,69,65,6C,64,69,73,6B,65,74,74 [3312] 
,65,3A,20,FF,4B,20,26,20 

3190 DATA FF,20,44,69,72,2E,20,66,72,65,69 [2406] 
,FF,0,A,0,C4,2,43,50 

3200 DATA 43,FF,34,36,34,36,36,34,36,31,32 [2767] 
, 38,4B,20,66,72,65,69,FF 

3210 DATA 1,AO, 0 , 6F, 1A,1,1,Al, 0 , 6F, 1A,1, 1 , [2572] 
A2,0,6F,1A,1,1 

3220 DATA E6,0,8D,EO,0, 1 ,E5,0,8D,EO,0, 1 ,E4 [2370] 
,0,8D,EO,0,1,A2 

3230 DATA 0,7E,E4,80,1,A2,0,7D,E4,80,1,AE, [2856] 
0,88,D8,0,1,AF,0 

3240 DATA 88,D8,0,1,BO,0,88,D8,0,1,D8,0,88 [2280] 
, D8,0,1, D7,0,88 

3250 DATA D8,0, 1 ,D6,0,88,D8,0,0,C2,0,7F,4, [2620] 
BO,0,88,0,CO,0 

3260 DATA 7F,4,AE,0,88,0,C2,0,7E,4,D6,0,88 [2626] 
,0,C4,0,7E,4,D6 

3270 DATA 0,87,0,90,0,42,4,F4,1,42,4,F4,1, [2668] 
91,4,90,0,91,4 

3280 DATA 90,0,42,0,8E,0,41,4,F6,1,41,4,F6 [2460] 
,1,92,4,8E,0,92 

3290 DATA 4,8E,0,41,0,90,0,64,4,F4,1,64,0, [2519] 
BE,0,9B,4,C2,1 

3300 DATA 9B,4,C2,1,A8,4,BE,0,A8,4,BE,0,9B [3389] 
,0,4,1,7D,2,4D 

3310 DATA 48,2D,55,73,65,72,53,6F,66,74,FF [2565] 
,FF,FF,0,BE,0,5C,2,44 

3320 DATA 69,73,6B,6D,61,6E,61,67,65,72,20 [3087] 
, 28,63,29,20,62,79,20,4D 

3330 DATA 48,2D,55,73,65,72,53,6F,66,74,FF [2239] 
,0,BE,0,50,2,67,65,73 

3340 DATA 63,68,72,69,65,62,65,6E,20,76,6F [2511] 
,6E,20,4D,61,72,69,75,73 

3350 DATA 20,48,65,75,6C,65,72,FF,0,D2,0,A [2923] 
5,2,56,65,72,73,69,6F 

3360 DATA 6E,20,31,2E,30,30,20,76,6F,6D,20 [3114] 
,31,34,2E,20,34,2E,31,39 

3370 DATA 39,31,FF,0,42,69,74,74,65,20,0,5 [2818] 
1,75,65,6C,6C,0,5A,69 

3380 DATA 65,6C,0,64,69,73,6B,65,74,74,65, [3225] 
20,69,6E,20,44,72,69,76 

3390 DATA 65,3A,0,20,20,65,69,6E,6C,65,67, [2721] 
65,6E,2C,20,64,61,6E,61 

3400 DATA 63,68,20,3C,53,50,41,43,45,3E,20 [3031] 
,64,72,75,65,63,6B,65,6E 

3410 DATA 2E,88,0,81,82,84,FF,85,0,81,83,8 [2816] 
4,FF,85,0,20,20,20,20 

3420 DATA 20,20,20,20,20,20,20,20,20,20,20 [2417] 
,0,81,82,84,FF,20,20,75 

3430 DATA 6E,64,20,83,84,FE,85,0,0,55,0,2B [3504] 
,2,FF,55/0,21,40,65 

3440 DATA 73,65,FF,53,63,68,72,65,69,62,FF [2347] 
,0,44,72,69,76,65,20,3A 

3450 DATA 0,54,72,61,63,6B,20,3A,0,53,65,6 [2546] 
3,74,6F,72,3A,0,42,6C 

3460 DATA 6F,63,6B,20,3A,0,87,92,20,3A,0,8 [3203] 
7,44,69,72,65,63,74,6F 

3470 DATA 72,79,0,87,43,50,4D,2D,53,70,75, [1954] 
72,0,20,20,20,0,A,D 

3480 DATA 0,20,6F,64,65,72,20,0,7,20,20,3F [3258] 
,20,3C,20,3E,8,8,0 

3490 DATA 3C,41,3E,62,62,72,65,63,68,65,6E [3002] 
,0,3C,57,3E,69,65,64,65 

3500 DATA 72,68,6F,6C,65,6E,0,3C,49,3E,67, [3213] 
6E,6F,72,69,65,72,65,6E 

3510 DATA 0,87,8B,8A,0,87,8B,89,8C,8A,0,87 [2583] 

,8B,2C,20,8C,89,8D,8A 

3520 DATA 0,44,69,73,6B,65,74,74,65,0,46,6 [2740] 
9,6C,65,0,91,20,66,65 

3530 DATA 68,6C,74,0,A4,73,63,68,72,65,69, [3213] 
62,67,65,73,63,68,75,65 

3540 DATA 74,7A,74,0,A4,76,6F,6C,6C,0,80,8 [2840] 
7,81,87,82,87,83,0,66 

3550 DATA 65,68,6C,65,72,0,96,97,0,98,20,2 [2544] 
0,2D,2D,3E,20,0,44,61 

3560 DATA 74,65,6E,0,99,9A,97,0,99,9A,20,7 [3287] 
A,75,20,73,63,68,6E,65 

3570 DATA 6C,6C,0,99,4B,65,69,6E,65,20,9A, [4028] 
0,99,46,61,60,73,63,68 

3580 DATA 65,20,53,70,75,72,0,99,4B,65,69, [2945] 
6E,20,53,65,63,74,6F,72 
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3590 DATA 0,46,6F,72,6D,61,74,20,0,43,50,4 [3131] 

D, 2 D,AO,0,44,41,54,41 

3600 DATA 2D,AO,0,6F,68,6E,65,20,AO,0,91,2 [3308] 
0,69,73,74,20,0,1F,A 

3610 DATA B,77,69,72,64,20,0,1F,1,4,80,88, [2695] 
88,81,88,88,82,88,88 

3620 DATA 0,44,69,72,65,63,74,6F,72,79,20, [3405] 
64,65,72,20,95,0,42,69 

3630 DATA 74,74,65,20,64,72,75,65,63,6B, 65 [3585] 
,6E,20,53,69,65,20,64,69 

3640 DATA 65,20,65,6E,74,73,70,72,65,63,68 [2738] 
,65,6E,64,65,20,54,61,73 

3650 DATA 74,65,20,3C,20,3E,8,8,0,1F,1B,3, [3070] 
Al,20,20,20,20,20,20 

3660 DATA 20,20,3C,43,3E,1F,1B,6,56,45,4E, [2947] 
44,4F,52,2D,A0,20,20,20 

3670 DATA 20,20,3C,56,3E,1F,1B,9,A2,20,20 , [3584] 
20,20,20,20,20,3C,44,3E 

3680 DATA 1F,F,F,0,1F,1B,C,A4,0,4B,65,69,6 [3126] 

E, 65,20,91,20,6D,69 

3690 DATA 74,20,Al,20,65,69,6E,67,65,6C, 65 [3203] 
,67,74,0,20,6B,6F,70,69 

3700 DATA 65,72,65,6E,20,0,20,66,6F,72,6D, [2387] 
61,74,69,65,72,65,6E,20 

3710 DATA 0,20,76,65,72,69,66,69,7A,69,65, [3378] 
72,65,6E,20,0,20,4E,61 

3720 DATA 6D,65,6E,20,67,65,62,65,6E,20,0, [2117] 
47,61,6E,7A,65,20,91,AC 

3730 DATA 0,45,69,6E,7A,65,6C,6E,65,20,92 , [2872] 
73,AC,0,20,91,AD,20,0 

3740 DATA 91,AE,0,20,20,91,AF,20,0,85,20,6 [2801] 
1,65,6E,64,65,72,6E,87 

3750 DATA 0,91,CC,20,6B,6F,70,2E,20,0,20,2 [3547] 
0,50,72,6F,67,72,61,6D 

3760 DATA 6D,69,6E,73,74,61,6C,6C,61,74,69 [3338] 
,6F,6E,20,0,87,87,48,61 

3770 DATA 75,70,74,6D,65,6E,75,65,20,87,87 [2746] 
,0,1F,12,1,8B,87,20,2D 

3780 DATA 3E,20,69,6E,73,20,48,61,75,70,74 [2468] 
,6D,65,6E,75,65,1F,12,2 

3790 DATA 8C,20,2D,3E,20,6E,65,75,65,20,91 [3268] 
,0,1F,19,9,A4,0,1F,1 

3800 DATA 1,4E,65,75,65,72,20,4E,61,6D,65, [3555] 
20,64,65,72,20,91,3A,20 

3810 DATA 0,1F,1,2,4E,75,6D,6D,65,72,20,64 [3159] 
,65,72,20,91,20,20,20 

3820 DATA 20,3A,20,0,1F,1,1,3C,4F,3E,20,52 [2781] 
,65,61,64,2D,4F,6E,6C 

3830 DATA 79,20,53,65,74,2E,2F,4C,6F,65,2E [3009] 
,87,87,87,3C,45,3E,20,46 

3840 DATA 69,6C,65,20,6C,6F,65,73,63,68,65 [3288] 
,6E,87,87,87,3C,52,3E,20 

3850 DATA 4E,65,75,65,72,20,4E,61,6D,65,D, [3334] 
A,3C,53,3E,20,53,79,73 

3860 DATA 74,65,6D,87,20,53,65,74,2E,2F,4C [3827] 
,6F,65,2E,87,87,87,3C,55 

3870 DATA 3E,20,4E,65,75,65,20,55,73,65,72 [2703] 
,6E,75,6D,6D,65,72,87,87 

3880 DATA 20,3C,53,50,41,43,45,3E,20,45,6E [3038] 
,64,65,0,3,1,1F,5,3 

3890 DATA 4E, 65,75,65,20-, 55,73,65,72,6E, 75 [3501] 
,6D,6D,65,72,3A,20,0,3 

3900 DATA 1,1F,5,3,4E,65,75,65,72,20,46,69 [2468] 

,6C,65,6E,61,6D,65,3A 

3910 DATA 20,0,53,74,61,72,74,74,72,61,63, [2940] 
6B,20,0,45,6E,64,74,72 

3920 DATA 61,63,6B,20,20,20,0,1F,A,8,CO,62 [2456] 

,65,69,20,22,91,AC,22 

3930 DATA 20,3C,0,1F,A,9,CI,62,65,69,20,22 [3065] 
,91,AC,22,20,3C,0,1F 

3940 DATA A,3,CO,62,65,69,20,22,91,AD,22,2 [2456] 
0,3C,0,1F,A,4,C1,62 

3950 DATA 65,69,20,22,91,AD,22,20,3C,0,3E, [2888] 
3A,20,0,1F,A,6,91,20 

3960 DATA 6E,61,63,68,20,46,6F,72,6D,61,74 [3035] 
,69,65,72,65,6E,AE,3C,0 

3970 DATA 1F,A,B,51,75,65,6C,CB,3C,0,1F,A, [2090] 
C,5A,69,65,6C,CB,3C 

3980 DATA 0,1F,A,E,50,72,6F,67,72,61,6D,6D [2146] 
,20,61,62,73,70,65,69 

3990 DATA 63,68,65,72,6E,20,3C,0,6C,61,75, [2472] 
66,77,65,72,6B,20,0,20 

4000 DATA 6F,70,74,69,6D,69,65,72,74,0,CC, [2463] 
AC,0,1F,18,2,3C,45,3E 

4010 DATA 87,B1,1F,18,4,3C,4F,3E,87,91,CD, [3751] 
1F,18,6,3C,4B,3E,87,B0 

4020 DATA 1F,18,8,3C,46,3E,20,20,B2,1F,18, [3921] 
A,3C,56,3E,87,B3,1F,18 

4030 DATA C,3C,4E,3E,20,B4,1F,18,E,3C,44,3 [2990] 
E,B5,1F,18,10,3C,50,3E 

4040 DATA 20,B7,3,1,1F,10,1,0,FF,44,49,53, [3523] 
4B,4D,41,4E,2E,0,27 

4050 DATA 0,0,0,29,1,FF,FF,0,0, [1115] 


DISKMAN.LDR 
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“Katz und Maus« splelen 
" ol.« hier v/e/c Kaben (K ,, S 
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Bei CRASH hat der Spieler die Aufga¬ 
be, das Spielfeld mit seiner Spielfigur 
rot einzufärben. Damit dies jedoch 
nicht zu einfach wird, bewegen sich 
Kugeln auf dem Spielfeld und auf der 
Spielfeldbegrenzung. 

Eine Berührung mit einer dieser Ku¬ 
geln sollten Sie tunlichst vermeiden, 
schließlich kostet der Kontakt mit einer 
der Kugeln eines Ihrer fünf Spieler¬ 
leben. 

Wie Sie sehen werden, ist das Einfär¬ 
ben der Spieloberflächc recht kompli¬ 
ziert - denn wenn Sie mit Ihrer Spiel¬ 
figur versehentlich ein Quadrat bilden, 
sind Sie in diesem auch gefangen. Die 
Kugeln stören sich jedoch nicht an die¬ 
sen '“Wänden“. Sollten Sie sich also 
selbst einsperren, wird Ihrer Spielfigur 
schnell der Garaus gemacht. 


Um aber nicht ewig “ackern" zu müs¬ 
sen, gibt es eine Erleichterung: Sie 
brauchen nämlich nur 75 % der Fläche 
rot einzufärben — stellen Sie sich das 
aber nicht zu leicht vor. 

Vorsicht vor den Kugeln 

CRASH wird auf sechs verschiedenen 
Spielfeldern gespielt, die sich durch 
immer mehr Hindernisse auszeichnen. 
Hat man alle Felder eingefärbt, darf 
man wieder von vorne beginnen: aller¬ 
dings behindern nun zwei Kugeln mehr 
die Malerei! 

Dabei ist wichtig, daß Sie für jedes 
Kästchen, das Sie über 75 % einfärben, 
zehnmal so viele Punkte erhalten wie 
für ein Kästchen unter 75 %! Gesteuert 
wird die Spielfigur (das blaue Quadrat) 


mit dem Joystick. Haben Sie sich ein¬ 
mal in eine ausweglose Situation (wie 
oben erwähnt) manövriert, brauchen 
Sie nur den Feuerknopf zu drücken und 
dürfen dann auf demselben Spielfeld 
noch einmal von vorne beginnen, müs¬ 
sen allerdings eines Ihrer wenigen Le¬ 
ben opfern. 

Dem Feuerknopf kommt aber auch 
noch eine andere Bedeutung zu: Wenn 
Sie 75 % der Fläche eingefärbt haben, 
geht es nicht automatisch im nächsten 
Spielfeld weiter, sondern nur, nachdem 
Sie den Feuerknopf betätigt haben! 

Zum Programm 

CRASH besteht aus vier Teilen: 

1. dem Hauptprogramm "CRASH.BAS“, 
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2. dem Maschinencode “CRASH.MC”, 
der nach dem Starten von “CRASH- 
MC.LAD“ gespeichert wird, 

3. den Leveidaten “CRASH.LEV“, 
die nach dem Start von “CRASH- 
LE. LAD“ gespeichert werden, 

4. der Highscore-Liste, die vor dem er¬ 
sten Spiel mit “CRASH-HI.BAS“ er¬ 
zeugt werden muß. 

Nach dem Abtippen der vier Listings 
müssen Sie die Datalader und CRASH- 
HI.BAS zunächst nacheinander star¬ 
ten. Danach ist CRASH lauffähig - 
und Sie können loslegen. 

(Martin Schmidt/tk) 


Punkte 


Bild /: CRASH - 
Katzen mul Maus 
auf dem CPC 





Rekord 


für 664-6128 



10 '********************* 

20 '** CRASH ** 

40 '** 1990 by ** 

50 '** Martin Schmid ** 

60 '********************* 

70 ' Auf dem CPC 464 nur mit Emulator!!! 

80 ' 

90 '** Initialisierung ** 

100 ' 

110 INK 0,0:INK 1,24:INK 2,14:INK 3,6:BORD 
ER 0:PAPER 0:PEN 1 

120 DEFINT a-z:DEFREAL p,g:MODE 1:SYMBOL A 
FTER 256:MEMORY &9000-1:SYMBOL AFTER 0:anf 
=VAL("&" + HEX$(HIMEM+1)) 

130 ENV 1,10,-1,5 

140 ENV 2,15,-1,40:ENT-2,1,15,15,1,-8,10 
150 WINDOW#2,1,1,7,24:WINDOW#3,40,40,7,24: 
WINDOW#4,3,38,8,23 
160 LOAD"crash.mc",&9000 
170 LOAD"crash.lev",&9600 

180 OPENIN"crash.hi":FOR i=l TO 10:LINE IN 
PUT#9,name$(i):INPUT#9,pkt(i):NEXT:CLOSEIN 
:rekord=pkt(l) 

190 FOR 1=0 TO 5:READ feld(i):NEXT 
200 DATA 576,540,544,468,522,504 
210 ' 

220 '** Bildschirm aufbauen ** 

230 ' 

240 OUT &BC00,6:OUT &BD00,0 
250 LOCATE 1,25:PRINT"CRASH"; 

260 FOR y=15 TO 0 STEP-2:FOR X=0 TO 79 STE 
P 2 

270 t=TEST(x,y):IF t=0 THEN 290 

280 PLOT x*3+20,y*3+345,3:DRAWR 4,0:PLOTR 

0,-2:DRAWR-4,0:PLOTR 0,-2:DRAWR 4,0:PLOTR 

2,2,1:DRAWR 0,-4:DRAWR-4,0:PLOTR 0,-2:DRAW 

R 6,0:DRAWR 0,6 

290 NEXT:NEXT 

300 PEN 1:PAPER 3:LOCATE 1,25:PRINT"1990 b 
y Martin Schmid"; 

310 FOR y=15 TO 0 STEP-2:FOR x=0 TO 335 ST 
EP 4:t=TEST(x,y) 

320 PLOT x/2+56,y+320,t 

330 NEXT:NEXT:PAPER 0:LOCATE 1,25:PRINT ST 
RINGS(40," "); 

340 pl=l:p2=2:p3=3 

350 LOCATE 20,1:t$="Leben:":GOSUB 1340:PEN 
1:PRINT USING"##";leben 
360 LOCATE 20,3:t$="Punkte:":GOSUB 1340:PE 
N 1:PRINT" 0" 

370 LOCATE 20,5:t$="Feld:":GOSUB 1340:PEN 
1:PRINT" 0 %" 

380 LOCATE 3,25:t$="Level:":GOSUB 1340:MOV 

E 144,13,1:TAG:PRINT" 0";:TAGOFF 

390 LOCATE 20,25:t$="Rekord: ":GOSUB 1340: 

MOVE 432,13,1:TAG:PRINT USING"######";reko 

rd;:TAGOFF 

400 PEN 1,0 

410 ' 

Listing CRASH.BAS 


480 

.178 

[657] 

[1885] 

[117] 

[2224] 

[117] 

[1267] 

[7150] 


[437] 

[1718] 

[4256] 

[1622] 

[2053] 

[6387] 


[947] 

[1194] 

[117] 

[959] 

[117] 

[799] 

[1563] 

[2359] 

[1228] 

[7574] 


[ 1022 ] 

[6445] 

[3063] 

[879] 

[2679] 

[421] 

[2986] 

[3464] 

[3649] 

[3539] 

[4777] 


420 '** Vorspann ** 

430 ' 

440 OUT &BC00,6:OUT &BD00,25 

450 lev=0 : POKE &9 386, S.C9 : POKE &907A,S,C9 

460 IF lev MOD 3=0 THEN GOSUB 780 

470 CALL &9000,4,&9600+lev*172:CLS#2:CLS#3 

480 FOR q=l TO 75:CALL &91D5:IF JOY(0)=16 

THEN 540 ELSE FOR qp=l TO 135:NEXT:NEXT 

490 lev=lev+l:IF lev=6 THEN lev=0 

500 GOTO 460 

510 ' 

520 '** Spielbeginn ** 

530 ' 

540 grenze=5000 : POKE S.9386,195: POKE &907A, 
205 

550 level=0:anzahl=2:punkte=0:leben=5 
560 MOVE 144,13,1:TAG:PRINT USING"##";leve 
1+1;:TAGOFF:feld=0:maxi=feld(level MOD 6): 
p75=INT(maxi*0.75) 

570 PEN 1:LOCATE 27,1:PRINT USING"##";lebe 
n 

580 LOCATE 28,3:PRINT USING"######";punkte 
590 LOCATE 26,5:PRINT" 0 %" 

600 CALL &9000,anzahl,&9600+(level MOD 6)* 
172:CLS#2:CLS#3 

610 CALL &91D5:IF PEEK(&95C3)=1 THEN 910 
620 IF UPPERS(INKEYS)="P"THEN GOSUB 1270 
630 IF PEEK(&95C4)=0 THEN 670 
640 feld=feld+l:LOCATE 26,5:PRINT USING"## 
";INT(l00/maxi*feld) 

650 punkte=punkte+anzahl-l+(9*(anzahl-1)AN 
D feld>p75):LOCATE 28,3:PRINT USING"###### 
";punkte:IF punkte>grenze THEN leben=leben 
+1:grenze=grenze+2500*anzahl:PEN 1:LOCATE 
27,1:PRINT USING"##";leben 
660 GOTO 610 

670 IF PEEK(&95C5)=0 THEN FOR qp=l TO 100: 
NEXT:GOTO 610 

680 IF feld<p75 THEN 910 ELSE level=level+ 
1:anzahl=anzahl+((1 AND level MOD 6=0)AND 
anzahl<l 0 ) 

690 q=REMAIN(1):ton=280:FOR i=0 TO 3 
700 SOUND l,ton,15f(25 AND i=3),10 
710 SOUND 2,ton-2,15+(25 AND i=3),10 
720 SOUND 4,ton-4,15+(25 AND i=3),10 
730 ton=ton-30-i*10 

740 NEXT:WHILE SQ(4)<>4:WEND:GOTO 560 
750 ' 

760 '** High-Score-Liste ausgeben ** 

770 ' 

780 pl=l:p2=2:CALL &9000,0,&9600:CLS#2:CLS 
#3:CLS#4 

790 PRINT:MOVE 210,268,2:TAG:PRINT"T O P - 
T E N";:TAGOFF 

800 PEN 1,1:LOCATE 14,9:PRINT"T O P - T E 
N" 

810 FOR i=l TO 10:LOCATE 6,i+10:t$=RIGHT$( 

" "+STR$(i),2)+".":GOSUB 1340 

820 LOCATE 10,i+10:t$=name$(i):GOSUB 1340 

830 LOCATE 30,i+10:t$=RIGHT$(" "+STR$ 

(pkt(i)),6):GOSUB 1340 

840 NEXT 

850 IF hl=-l THEN RETURN 
860 PEN 3,0:LOCATE 16,22:PRINT"> FEUER <" 
870 FOR qp=l TO 3000:IF JOY(0)=16 THEN 540 
ELSE NEXT:RETURN 

Listing CRASH.BAS 


[1026] 

[117] 

[901] 

[1412] 

[1343] 

[1891] 

[6911] 

[1876] 

[456] 

[117] 

[851] 

[117] 

[1901] 

[1676] 

[6795] 


[2484] 

[2090] 

[983] 

[3586] 

[2043] 
[2163] 
[1081 ] 
[3156] 

[12749] 


[411] 

[3849] 

[4832] 


[1642] 

[2177] 

[2585] 

[2142] 

[898] 

[1767] 

[117] 

[2618] 

[117] 

[2626] 

[3592] 

[3812] 

[3841] 

[1412] 

[3574] 

[350] 

[1600] 

[2926] 

[2934] 
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'** Verlust eines Lebens ** 


P I E L [3000] 


[1740] 

[4285] 


880 
890 
900 ' 

910 SOUND 1,500,50,15,1,,10 
920 SOUND 2,750,50,15,1,,10 
930 SOUND 4,1000,50,15,1,,10 
940 leben=leben-l 

950 LOCATE 27,1:PRINT USING"##";leben 
960 IF leben>0 THEN FOR qp=l TO 2000:NEXT: 
GOTO 560 
970 ' 

980 '** Spielende, evtl, in TOP-TEN eintra 
gen ** 

990 ' 

1000 SOUND 1,500,600,15,2,2:SOUND 2,400,60 
0,15,2,2:SOUND 4,450,600,15,2,2 
1010 LOCATE 12,15:pl=2:p2=l:t$="S 
END E":GOSUB 1340 
1020 WHILE SQ(4)<>4:WEND 

1030 IF punkte<pkt(10)OR punkte=0 THEN hl= 

0:GOSUB 780:GOTO 1190 

1040 pkt(10)=punkte:name$(10)=CHR$(255) 

1050 FOR i=l TO 9:h=i:FOR j=l+i TO 10:IF p 
kt(h)<pkt(j)THEN h=j 

1060 NEXT:pkt=pkt(i):pkt(i)=pkt(h):pkt(h)= 
pkt:nameS=nameS(i):name$(i)=name$(h):name$ 

(h)=name$:NEXT 

1070 FOR i=l TO 10:IF nameS(i)=CHR$(255)TH 
EN h=i:name$(i)="" 

1080 NEXT 

1090 hl=-l:GOSUB 780:hl=0:IF pkt<pkt(10)TH 
EN 

1100 pl=3ip2=2:LOCATE 8,22:PEN 3:PRINT"Geb 
en Sie Ihren Namen ein !" 

1110 WHILE INKEYSo"" :WEND 

1120 PEN l:x=10:y=h+10:LOCATE x,y:PRINT CH 
R$(143 ) 

1130 t$=UPPER$(INKEYS):IF t$=""THEN 1130 
1140 IF t$=CHR$(127)THEN IF X>10 THEN x=x- 
1:name$(h)=LEFT$(nameS(h),LEN(nameS(h))-l) 

:LOCATE x,y:PRINT CHR$(143)" ":GOTO 1130 E 
LSE 1130 

1150 IF t$=CHR$(13)THEN 1170 
1160 IF x<28 THEN nameS(h)=name$(h)+t$:LOC 
ATE x,y:GOSUB 1340:PRINT CHR$(143):x=x+l:G 
OTO 1130 ELSE 1130 

1170 pl=l:p2=2:LOCATE x,y:PRINT" ":OPENOUT 
"crash.hi":FOR i=l TO 10:PRINT#9,nameS(i): 
PRINT#9,pkt(i):NEXT:CLOSEOUT 
1180 LOCATE 3,22:PRINT SPACES(33) 

1190 PEN 3:LOCATE 16,22:PRINT"> FEUER <" 
1200 rekord=pkt(l) 

1210 MOVE 432,13,1:TAG:PRINT USING"######" 
;rekord;:TAGOFF 

1220 lev=0 : POKE S.9 386 ,&C9 : POKE S907A,&C9 
1230 FOR qp=l TO 3000:IF JOY(0)=16 THEN 54 
0 ELSE NEXT:GOTO 470 
1240 ' 

1250 '** Pause ** 

1260 ' 

1270 LOCATE 16,6:t$="- PAUSE -" 

1280 pl = INT(RND*3)+1:p2 = INT(RND*3)+1:GOSUB 
1340 

1290 IF UPPERS(INKEYS)="P"THEN LOCATE 1,6: 
PRINT SPACES(40):PEN 1:RETURN 
1300 GOTO 1270 
1310 ' 

1320 '** Streifentext ausgeben ** 

1330 ' 

1340 FOR a=l TO LEN(t$) 

1350 adr=anf+ASC(MID$(t$,a,1))*8 

1360 SYMBOL 253,0,PEEK(adr),PEEK(adr+1),PE 

EK(adr+2),PEEK(adr+3) 

1370 SYMBOL 254, 0 ,0,0,0,0,PEEK(adr+4),PEEK 
(adr+5),PEEK(adr+6) 

1380 PEN pl,0:PRINT CHRS(253)CHR$(8); 

1390 PEN p2,l:PRINT CHR$(254); 

1400 NEXT:PEN pl,0:RETURN 

Lisling CRASH.BAS 


[117] 

[976] 

[117] 

[1329] 

[1529] 

[2083] 

[877] 

[2301] 

[2685] 

[117] 

[1633] 

[117] 

[3956] 


[2087 ] 
[4054] 

[5844] 


[3234] 

[350] 

[1561] 

[4749] 

[1786] 

[1964] 

[1851] 

[7569] 


[1125] 

[6326] 


[5499] 


[2380] 
[1688] 
[1189 ] 
[2907] 

[1412] 

[3304] 

[117] 

[746] 

[117] 

[1421] 

[1763] 

[4051] 

[357] 

[117] 

[1654] 

[117] 

[ 1012 ] 

[1969] 

[4633] 

[3265] 

[2780] 

[831] 

[1824] 


10 'CRASH-MC.LAD => CRASH.MC 
20 MEMORY &9000-1:adr=&9000 
30 FOR zeile=120 TO 850 STEP 10 
40 sum=0 

50 FOR i=0 TO 19 

60 READ byte$:byte=VAL("&"+byte$) 

70 sum=sum+byte:POKE adr,byte 
80 adr=adr+l:NEXT 

90 READ ps$:IF sum<>VAL("&"+ps$)THEN PRINT 
"Fehler in Zeile";zeile:STOP 
100 NEXT 

110 SAVE"CRASH.MC",b,&9000,&5C8 


[1779] 

[1250] 

[1442] 

[431] 

[532] 

[1808] 

[2139] 

[630] 

[4947] 

[350] 
[2001 ] 


Listing CRASH-MC.LAD 


120 DATA F3,DD,7E,02,32,33,91,DD,6E,00,DD, 

66,01,E5,DD,El,11,5A,00,19,08FC 

130 DATA 11,34,91,01,50,00,ED,B0,7E,32,CI, 

95,23,7E,32,C2,95,21,E0,C1,08B6 

140 DATA 06,12,C5,06,05,C5,DD,4E,00,06,08, 

C5,CB,79,20,1F,E5,FD,21,4F,0780 

150 DATA 90,06,08,FD,7E,00,77,23,77,11,FF, 

07,19,FD,23,10,F2,18,18,08,06B4 

160 DATA 04,02,01,08,04,02,01,E5,06,08,3E, 

FF,77,23,77,11,FF,07,19,FD,0584 

170 DATA 23,10,F5,El,23,23,CI,CB,21,10,C4, 

CI,DD,23,10,B9,C1,10,B3,CD,09AB 

180 DATA 7E,90,CD,95,95,C9,3A,33,91,FE,00 , 

C8,47,DD,21,34,91,C5,26,00,0987 

190 DATA 11,00,00,DD,6E,01,CD,ID,BC,DD,5E, 

00,16,00,19,36,68,CD,26,BC,06BA 

200 DATA 36,F0,CD,26,BC,36,F0,CD,26,BC,36, 

61,26,00,11,00,00,DD,6E,29,07EC 

210 DATA CD,ID,BC,DD,5E,28,16,00,19,36,F9, 

CD,26,BC,36,F0,CD,26,BC,36,0921 

220 DATA F0,CD,26,BC,36,F9,DD,23,DD,23,DD, 

2 3,DD,23,C1,10,B0,C9,3A,33,0A85 

230 DATA 91,47,DD,21,34,91,C5,26,00,11,00, 

00,DD,6E,01,CD,ID,BC,DD,5E,07C4 

240 DATA 00,16,00,19,36,08,CD,26,BC,36,04, 

CD,26,BC,36,02,CD,26,BC,36,0622 

250 DATA 01,26,00,11,00,00,DD,6E,29,CD,ID, 

BC,DD,5E,28,16,00,19,36,FF,0619 

260 DATA CD,26,BC,36,FF,CD,26,BC,36,FF,CD, 

26,BC,36,FF,DD,23,DD,23,DD,0B89 

270 DATA 23,DD,23,CI,10,B0,C9,64,20,65,2C, 

61,00,0D,00,91,0A,01,C0,6C,06B8 

280 DATA 64,20,64,2C,30,00,10,00,96,0A,01, 

C0,61,64,64,20,68,6C,2C,64,0562 

290 DATA 65,00,10,00,9B,0A,01,C0,6C,64,20, 

61,2C,28,68,6C,29,00,0D,00,048A 

300 DATA A0,0A,01,C0,63,70,20,31,30,34,00, 

11,00,A5,0A,01,CO,6A,70,20,056E 

310 DATA 7A,2C,65,6E,64,65,31,00,OD,00,AA, 

OA,01,CO,63,70,20,32,34,39,0587 

320 DATA 00,11,00,AF,OA,01,CO,6A,70,20,7A, 

2C,65,6E,64,65,31,00,OD,00,0505 

330 DATA B4,OA,01,CO,69,6E,63,20,68,6C,00, 

10,00,B9,OA,01,CO,6C,64,20,0631 

340 DATA 61,2C,28,68,6C,29,00,0D,00,BE,OA, 

01,CO,63,70,20,31,30,34,00,04D0 

350 DATA 12,00,C3,OA,01,CO,6A,70,F3,DD,21, 

34,91,3A,33,91,47,C5,06,00,0740 

360 DATA C5,26,00,DD,7E,01,DD,5E,03,83,6F, 

16,00,DD,5E,00,CD,89,93,CI,0872 

370 DATA FE,FF,CC,9B,93,FE,F9,CC,9B,93,FE, 

OF,CA,CI,9 3,C5,DD,7E,00,DD,0E10 

380 DATA 5E,02,83,5F,16,00,26,00,DD,6E,01, 

CD,89,93,CI,FE,FF,CC,AE,93,097E 

390 DATA FE,F9,CC,AE,93,FE,OF,CA,CI,93,78, 

FE,01,CA,54,92,DD,7E,00,DD,0C8E 

400 DATA 4E,02,81,5F,16,00,26,00,DD,7E,01, 

DD,4E,03,81,6F,06,00,CD,89,0642 

410 DATA 93,FE,FF,CC,94,93,FE,F9,CC,94,93, 

FE,OF,CA,CI,9 3,CI,DD,23,DD,0E36 

420 DATA 23,DD,23,DD,23,05,3E,00,B8,C2,DD, 

91,3A,33,91,DD,21,34,91,47,0856 

430 DATA DD,7E,00,DD,56,02,82,DD,77,50,DD, 

7E,01,DD,56,03,82,DD,77,51,096F 

440 DATA DD,23,DD,23,DD,23,DD,23,10,E2,DD, 

21,34,91,11,28,00,DD,19,3A,081E 

450 DATA 33,91,47,C5,06,00,C5,26,00,DD,7E, 

01,DD,5E,03,83,6F,16,00,DD,0740 

460 DATA 5E,00,CD,89,93,CI,FE,08,CC,9B,93, 

FE,68,CC,9B,9 3,FE,00,CC,9B,OBCD 

470 DATA 93,FE,OF,CA,CI,93,C5,DD,7E,00,DD, 

5E,02,83,5F,16,00,26,00,DD,0916 

480 DATA 6E,01,CD,89,93,CI,FE,08,CC,AE,93, 

FE,68,CC,AE,93,FE,00,CC,AE,0C17 

490 DATA 93,FE,OF,CA,CI,93,78,FE,01,CA,ID, 

9 3,DD,7 E,0 0,DD,4E,02,81,5F,0A17 

500 DATA 16,00,26,00,DD,7E,01,DD,4E,03,81, 

6F,06,00,CD,89,93,FE,08,CC,0777 

510 DATA 94,93,FE,68,CC,94,93,FE,00,CC,94, 

93,FE,OF,CA,CI,93,CI,DD,23,0C5D 

520 DATA DD,23,DD,23,DD,23,05,3E,00,B8,C2, 

97,92,3A,33,91,47,DD,21,34,085D 

530 DATA 91,DD,7E,28,DD,56,2A,82,DD,77,78, 

DD,7E,29,DD,56,2B,82,DD,77,0A77 

540 DATA 79,DD,23,DD,23,DD,23,DD,23,10,E2, 

CD,19,BD,CD,DA,90,DD,21,34,0A7 7 

550 DATA 91,3A,33,91,47,DD,7E,50,DD,77,00 

DD,7E,51,DD,77,01,DD,7E,78,09A9 

560 DATA DD,77,28,DD,7E,79,DD,77,29,DD,23 

DD,23,DD,23,DD,23,10,DE,CD,0A88 

570 DATA 7E,90,C3,C8,93,D5,11,00,00,CD,ID 

BC,Dl,19,7E,C9,3A,C6,95,FE,0A7C 

580 DATA 01,28,13,06,01,DD,7E,03,ED,44,DD 

77,03,3A,C6,95,ED,44,32,C6,07E7 

590 DATA 95,C9,06,01,DD,7E,02,ED,44,DD,77 

02,3A,C6,95,ED,44,32,C6,95,099C 

Lisling CRASH-MC.LAD 


[3488] 
[4370] 
[2934] 
[3860] 
[3054] 
[3155] 
[4655] 
[4003] 
[3000] 
[3068] 
[3674] 
[2660] 
[2881] 
[2979] 
[3434] 
[3025] 
[4240] 
[2005] 
[3508] 
[3598] 
[4929] 
[3226] 
[2573] 
[2172] 
[4202] 
[5105] 
[3913] 
[4312] 
[3968] 
[3374] 
[3313] 
[3178] 
[3565] 
[4221] 
[4563] 
[3076] 
[3888] 
[3136] 
[3809] 
[4246] 
[4144] 
[3447] 
[3377] 
[2725] 
[2809] 
[4039] 
[2998] 
, [2746] 
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600 DATA C9,C1,3E,01,32,C3,95,C9,3E,00,32, [4396] 
04,95,32,03,95,32,05,95,CD,09C8 

610 DATA 24,BB,FE,00,08,CB,47,02,F3,93,CB, [3829] 
4F,02,52,94,CB,57,C2,Bl,94,OBEA 

620 DATA CB,5F,02,OE,95,CB,67,02,60,95,09, [2802] 
3A,02,95,06,08,26,00,6F,11,0952 

630 DATA 00,00,CD,ID,BC,3A,C1,95,5F,16,00, [4900] 
19,7E,FE,68,CA,41,94,23,7E,07E8 

640 DATA FE,68,CA,41,94,11,00,20,19,7E,FE, [3317] 
68 , CA, BB, 95, FE, F9 ,CA, BB, 95,0B5E 

650 DATA 2B,7E,FE,68,CA,BB,95,FE,F9,CA,BB, [4151] 
95, FE, FF,08,CD,72,95,3A,02,ODCF 

660 DATA 95,06,08,32,02,95,03,95,95,CD,72, [3603] 
95,3A,02,95,06,04,32,02,95,0A91 

670 DATA CD,95,95,03,BB,95,3A,C2,95,D6,08, [3682] 
26,00,6F,11,00,00,CD,ID,BC,0805 

680 DATA 3A,C1,95,5F,16,00,19,7E,FE,68,CA, [3582] 
BB,95,FE,F9,CA,BB,95,23,7E,OACE 

690 DATA FE,68,CA,BB,95,FE,F9,CA,BB,95,FE, [3286] 
FF,08,11,00,20,19,7E,FE,68,0084 

700 DATA CA,AO,94,2B,7E,FE,68,CA,AO,94,CD, [3731] 
72,95,3A,02,95,D6,08,32,C2,0B42 

710 DATA 95,03,95,95,CD,72,95,3A,02,95,D6, [3869] 
04,32,02,95,CD,95,95,C3,BB,OBBF 

720 DATA 95,3A,02,95,6F,26,00,11,00,00,CD, [3321] 
1D,BC,3A,C1,95,3D,5F,16,00,06B4 

730 DATA 19,7E,FE,68,CA,BB,95,FE,F9,CA,BB, [4023] 
95,2B,7E,FE,68,CA,FE,94,11,0CA4 

740 DATA 00,20,19,7E,FE,68,CA,FE,94,23,7E, [3352] 
FE,68,CA,BB,95,FE,F9,CA,BB,0016 

750 DATA 95,FE,FF,C8,CD,72,95,3A,C1,95,3D, [1965] 
3D,32,CI,95,03,95,95,CD,72,OBEC 

760 DATA 95,3A,CI,95,3D,32,CI,95,CD,95,95, [2628] 
C3,BB,95,3A,C2,95,6F,26,00,0A1A 

770 DATA 11,00,00,CD,1D,BC,3A,C1,95,3C,3C, [4649] 
5F,16,00,19,7E,FE,68,CA,BB,07B6 

780 DATA 95,FE,F9,CA,BB,95,23,7E,FE,68,CA, [2910] 
5C,95,11,FF,1F,19,7E,FE,68,0B94 

790 DATA CA,BB,95,FE,F9,CA,BB,95,FE,FF,C8, [3055] 
23,7E,FE,68,CA,5C,95,CD,72,0DF1 

800 DATA 95,3A,CI,95,30,30,32,CI,95,03,95, [4651] 
95,CD,72,95,3A,C1,95,3C,32,09E4 

810 DATA CI,95,CD,95,95,C3,BB,95,3E,01,32, [2769] 
C5,95,C9,3A,C2,95,6F,26,00,0A1A 

820 DATA 11,00,00,CD,ID,BC,3A,C1,95,5F,16, [4574] 
00,19,06,08,3E,FF,77,23,77,0631 

830 DATA 2B,CD,26,BC,FD,23,10,F3,C9,3A,C2, [3967] 
95,6F,26,00,11,00,00,CD,ID,07E7 

840 DATA BC,3A,C1,95,5F,16,00,19,06,08,3E, [3386] 
0F,77,23,77,2B,CD,26,BC,10,0630 

850 DATA F5,3E,01,32,C4,95,C9,3E,01,32,03, [3187] 
95,09,08,27,CO,60,64,01,00,07DA 

Listing CRASH-MC LAD 


10 'CRASH-LE.LAD => CRASH.LEV [914] 

20 MEMORY &9600-1:adr=&9600 [1104] 

30 FOR zeile=120 TO 630 STEP 10 [1862] 

40 sum=0 [431] 

50 FOR i=0 TO 19 [532] 

60 READ byte$:byte=VAL("&"+byte$) [1808] 

70 sum=sum+byte:POKE adr,byte [2139] 

80 adr=adr+l:NEXT [630] 

90 READ ps$:IF SUItl<>VAL( "&"+ps$ )THEN PRINT [4947] 
"Fehler in Zeile";zeile:STOP 

100 NEXT [350] 

110 SAVE"crash.lev",b,&9600,1032 [1592] 

120 DATA 7f,FF,FF,FF,FE,40,00,00,00,02,40, [3169] 
00,00,00,02,40,00,00,00,02,0540 

130 DATA 40,00,00,00,02,40,00,00,00,02,40, [2809] 
00,00,00,02,40,00,00,00,02,0108 

140 DATA 40,00,00,00,02,40,00,00,00,02,40, [2809] 
00,00,00,02,40,00,00,00,02,0108 

150 DATA 40,00,00,00,02,40,00,00,00,02,40, [2809] 
00,00,00,02,40,00,00,00,02,0108 

160 DATA 40,00,00,00,02,7F,FF,FF,FF,FE,15, [2393] 
4F,01,04,38,53,FF,FC,0F,73,082D 

170 DATA FF,FC,40,2F,01,04,0F,2F,01,FC,40, [3576] 
73,FF,04,1F,73,FF,04,30,2F,0754 

180 DATA 01,FC,1F,2F,01,04,30,73,01,FC,03, [5301] 
2F,FF,04,4C,73,01,04,03,73,055F 

190 DATA FF,FC,4C,2F,01,04,11,97,FF,FC,3E, [3431] 
OB,01,04,3E,97,01,FC,11,OB,07 5A 

200 DATA FF,04,28,97,01,FC,27,OB,01,04,26, [4247] 
8F,7F,FF,FF,FF,FE,40,00,00,0865 

210 DATA 00,02,40,00,00,00,02,40,00,00,00, [2998] 
02,40,00,00,00,02,40,00,00,0108 

220 DATA 00,02,40,00,00,00,02,40,00,00,00, [2601] 
02,40,1F,FF,F8,02,40,1F,FF,043C 

230 DATA F8,02,40,00,00,00,02,40,00,00,00, [2898] 
02,40,00,00,00,02,40,00,00,0200 


240 DATA 00,02,40,00,00,00,02,40,00,00,00, 

02,40,00,00,00,02,7F,FF,FF,0345 

250 DATA FF,FE,0C,4F,01,FC,43,53,01,04,12, 

33,FF,FC,3D,77,FF,FC,12,77,0968 

260 DATA FF,04,3D,33,FF,04,21,77,01,04,2E, 

33,01,04,21,33,01,FC,2E,77,056F 

270 DATA 01,FC,OE,OB,FF,04,19,4F,FF,FC,41, 

97,01,FC,36,53,01,04,02,53,0734 

280 DATA 01,04,4D,4F,FF,04,OE,97,FF,FC,41, 

OB,01,04,27,97,FF,FC,28,OB,0781 

290 DATA 01,04,04,4F,7F,FF,FF,FF,FE,40,20, 

00,04,02,40,20,00,04,02,40,05DE 

300 DATA 20,00,04,02,40,20,00,04,02,40,20, 

00,04,02,40,20,00,04,02,40,0198 

310 DATA 20,00,04,02,40,20,00,04,02,40,00, 

18,00,02,40,00,18,00,02,40,0180 

320 DATA 00,18,00,02,40,00,18,00,02,40,00, 

18,00,02,40,00,18,00,02,40,0168 

330 DATA 00,18,00,02,40,00,18,00,02,7F,FF, 

FF,FF,FE,OC,6F,FF,FC,43,6F,0816 

340 DATA 01,FC,0C,2F,FF,04,43,2F,01,04,ID, 

6F,01,FC,32,6F,FF,FC,1D,2F,0723 

350 DATA 01,04,32,2F,FF,04,22,1F,01,FC,2D, 

1F, FF, FC, 14,97,01, FC, 3B, 97,0768 

360 DATA FF,FC,27,43,FF,04,28,1F,01,04,02, 

63,01,FC,4D,5F,FF,FC,02,OB,07CA 

370 DATA 01,04,4D,OB,FF,04,12,OB,FF,FC,3D, 

OB,01,FC,14,4F,7F,FF,FF,FF,089C 

380 DATA FE,7F,00,00,00,FE,7E,00,00,00,7E, 

7C,00,00,00,3E,78,00,00,00,04A9 

390 DATA IE,70,00,00,00,OE,60,00,18,00,06, 

40,00,3C,00,02,40,00,7E,00,0256 

400 DATA 02,40,00,7E,00,02,40,00,3C,00,02, 

60,00,18,00,06,70,00,00,00,022E 

410 DATA 0E,78,00,00,00,1E,7C,00,00,00,3E, 

7E,00,00,00,7E,7F,00,00,00,02D9 

420 DATA FE,7F,FF,FF,FF,FE,0C,4F,01,04,43, 

53,FF,FC,12,6F,01,FC,3D,33,0A57 

430 DATA FF,04,12,33,01,04,3D,6F,FF,FC,20, 

7B,FF,04,2F,27,01,FC,20,27,072C 

440 DATA FF,FC,2F,7B,01,04,02,4F,01,FC,4D, 

53,FF,FC,OF,OF,FF,FC,40,93,097F 

450 DATA 01,FC,OF,97,FF,FC,40,OB,01,04,1F, 

97 , FF, FC,30,OB,01,04,30,93,07A2 

460 DATA 01,04,1F,0F,FF,FC,OA,2F,7F,FF,FF, 

FF,FE,40,00,00,00,02,40,00,0763 

470 DATA 00,00,02,40,40,00,02,02,40,40,00, 

02,02,4 0,40,00,02,02,40,40,020E 

480 DATA 00,02,02,40,40,00,02,02,47,FF,F8, 

02,02,40,40,1F,FF,E2,40,40,05CA 

490 DATA 00,02,02,40,40,00,02,02,40,40,00, 

02,02,40,40,00,02,02,40,40,0210 

500 DATA 00,02,02,40,00,00,00,02,40,00,00, 

00,02,7F,FF,FF,FF,FE,0C,2B,0539 

510 DATA 01,FC,43,77,01,04,1A,83,01,FC,35, 

1F,FF,FC,1A,1F,01,04,35,83,069B 

520 DATA FF,04,OC,77,01,04,43,2B,01,FC,28, 

2F,FF,04,27,73,FF,FC,12,53,074A 

530 DATA 01,04,3D,4F,FF,FC,27,0F,01,FC,28, 

93,FF,04,03,4F,FF,FC,4C,53,0869 

540 DATA 01,04,OF,97,01,FC,40,OB,FF,04,OF, 

OB,01,04,40,97,FF,FC,26,47,0654 

550 DATA 7F,FF,FF,FF,FE,40,04,00,20,02,40, 

04,00,20,02,40,04,00,20,02,05AC 

560 DATA 40,04,00,20,02,40,04,00,20,02,7F, 

C4,00,23,FE,40,00,FF,00,02,0471 

570 DATA 40,00,00,00,02,40,00,00,00,02,40, 

00,FF,00,02,7F,C4,00,23;FE,0429 

580 DATA 40,04,00,20,02,40,04,00,20,02,40, 

04,00,20,02,40,04,00,20,02,0198 

590 DATA 40,04,00,20,02,7F,FF,FF,FF,FE,22, 

27,FF,FC,2D,7B,01,04,2D,27,0825 

600 DATA 01,FC,22,7B,FF,04,12,4F,FF,04,3D, 

53,01,FC,OA,27,01,FC,45,7B,077C 

610 DATA FF,04,OA,7B,01,04,45,27,FF,FC,1A, 

2B,01,04,35,77,FF,FC,35,2B,0745 

620 DATA FF,04,1A,77,01,FC,21,5B,01,04,2D, 

47,FF,FC,OA,63,01,04,45,3F,0677 

630 DATA FF,FC,0A,3F,01,FC,45,63,FF,04,26, 

17,00,00,00,00,00,00,00,00,0529 

Listing CRASH-LE LAD 


Listing CRASH-LE.LAD 


10 'CRASH-HI.BAS 
20 OPENOUT"crash.hi" 
30 FOR i=l TO 10 
40 PRINT#9,"" 

50 PRINT#9,0 
60 NEXT 
70 CLOSEOUT 

Listing CRASH-Hl.BAS 


[2254] 

[2977] 

[3066] 

[4290] 

[4419] 

[3728] 

[3309] 

[3186] 

[2720] 

[3317] 

[3829] 

[3372] 

[4018] 

[4161] 

[2456] 

[3332] 

[2659] 

[3936] 

[4224] 

[2996] 

[3991] 

[3835] 

[4286] 

[3454] 

[3506] 

[3007] 

[3069] 

[3512] 

[2130] 

[4371] 

[3226] 

[3087] 

[1787] 

[3473] 

[3167] 


[3611] 


[3272] 

[3288] 


[534] 

[1089] 

[315] 

[554] 

[592] 

[350] 

[902] 


6/7’91 PC 47 





[—Kleinanzeigen 


Biete Software 


COPYIIPC 6.0 NEU DM 75, -; 030/8 
927554, EKBER BILALOGLU, CICEROS 
TR. 58,1000 BERLIN 31 


■ CPC-PD Spiele + AnwenderPrg. ■ 
Liste 100PF bei: Peter Breuker, 
Rektenstraße 10,4930 Detmold 1 


ACHTUNG I! ERWACHSENE 

12 Disk. 5 1/4 oder 3 1/2 mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 40,- VS/Bar M. Karbach 
Remscheider Str. 18, 5650 Solingen G 


PD-SOFTWARE -,65 bis 2,-. 

Für IBM/Kompat. Kat-Disk, gratis. 

M. Karbach, Remscheider Str. 18 
5650 Solingen 1 G 


DATABOX-DISK von 7/86-12/86, 
7/88-12/88,1/89-12/89 und 1+2/90 mit 
Zeitschrift Kpl. 80,-DM SONDERHEF¬ 
TE 1-4 Kpl. mit DATABOX-DISK 
100,-DM TEL. 02502/6898 


■ CPC& JOYCE PUBLIC DOMAIN ■ 

■ Ein Info ist für 2x100Pf erhältlich ■ 
PDI, Pf 1118, D-6464 Linsengericht G 


Neue leistungsstarke Unterrichtssoft¬ 
ware Demo 5 DM in Briefmarken 
K. Stetten, Oberer Dallenbergweg 15, 
8700 Würzburg G 


VERKAUFE SOFT-HARDWARE CPC 
LISTE 2 DM, H D WINKLER, LEGIEN- 
STR.14, 5 KOELN 80 


Biete Hardware 


CPC 6128 + GT 65 + DISKS + HAND¬ 
BÜCHER + DRUCKERANSCHL. KA¬ 
BEL: VB 500,- DM TEL. 06434/8843 


CPC 664 + MONITOR GT65 + 
VORTEX SP256 ERW. + DRUCKER 
NLQ401 + LIT. + ORIGINALE + 
INTERF.VB 700,-08061/7540 


VERK. CPC 464 FARBMONITOR DIS¬ 
KETTENLAUFWERK + ORG,SPIELE 
VB 650.- TEL. 089/351 2508 ab 18.00 


Für CPC 6128: Btx-Modul 95 DM, Vi¬ 
deo Digitiser 150 DM, Prowort 95 DM; 
FiBu (M +T), DRGraph, OCP Art Stu¬ 
dio, Adr.Music Syst, je 50 DM 
Alles + NN. Tel: 051 30-3896 


VERKAUFE: SCHNEIDER CPC 6128 

mit Diskettenlaufwerk, Farbmonitor, 
Software/Literatur für VB 750,-. 

Tel. 086 31/9 54 76 ab 19h 


CPC-BTX-Modul-Epromer u. 
Super Rom Plus für 14 Eproms. 
450,-DM Tel. 075 42/210 05 


CPC 6128 GRÜNM. + ZUBEHÖRR, div. 
PROG. BÜCHER, VB 500,- 04461/5860 


CPC 6128 (FARBMON) + INTERFACE 
(ROBOTSTEUERUNG) + 3 HANDBÜ¬ 
CHER + 15 AUSGABEN PCI 
VB 650,-DM TEL. 071 36/35 25 


CPC 6128 mit Farbmonitor u. 2.LW 
5 1/4", Literatur, ca.100 Disketten, 
u.a. Multiplan, Startexter, Stardatei, 
DM 550,- Tel.: (02 21) 590 48 20 


BTX-MODUL-CPC/ Neu DM 120 
Tel. 071 46-3656 


SCHNEIDER PC 1640 Farbmon. CGA 
LW 5 1/4, Maus, Drucker Epson LX 800, 
Handb. DM 1800 05353/3010 


CPC-6128-GRÜN + FLUGSIMULATOR 
+ JOYSTICK + MINIOFFICE + SPIE¬ 
LE + LEERDISKS + BÜCHER FÜR 
DM 300 Tel. 089/637 5093 ab 19 UHR 


Schneider CPC 6128 mit Colormonitor, 
Drucker NLQ 401, 20 Databoxdisket- 
ten, 16 Leerdisketten, Spiele und 
Schneider-Hefte Jahrgang 4/1986 bis 
5/1991 DM 1.200, AB 18.30 Uhr 
Tel. 0221-697845, Claus Ruth, 

Am Flutgraben 30, 5000 Köln 80 


CPC 464 grün + DD1 + FD1 + DK- 
Tronic 256KB + DMP2160 + zB. 
Discology, MicroDesign, MiniOffice 
+ Compiler, Assembler + Bücher + 
Spiele auch einzeln VB 750,- 
TEL 0751/51721 ab 18 UHR 


JOYCE, 2LW, DRUCK., LIT., DISK., 
FÜR 650 u. CPC 464 F. 350 DM 
M. SCHUSTER, TEL. 06842/2992 


CPC 6128 GRÜN + FLOPPY + 
DRUCKER PANASONIC KX-P1091 + 
TV-ANSCHLUß + JOYSTICK + 
HANDBÜCHER + STAR WRITER 
TEXT + 2D CHESS VB 700 DM 
TEL. 040/715 66 68 ab 18 UHR 


6128 + GT65 + 23 DISKS 
->0731/2663 59 


CPC 6128, GT 65, Datarec., FD 3,5" 
Leerdisk., Softw., Literatur, VB 1000, 
0981/94770 ab 18 Uhr 


ZWEITES 3" DISKETTENLAUFWERK 
FÜR CPC 6128 DM 100,- 
Tel. 05661/21 21 


PCW 8256 m. 512kB RAM, Traktor, 

CPS 8256, Kempston Maus, Grafpad 2. 
Zus. SW: Locoscr. 2.16, FSE + (DTP), 
COMJOY (Dfü). VB 850.- 
Tel. 089-6708076 


Suche Software 


SUCHE LOCOSCRIPT2 
003287656066 


SUCHE LOCOSCRIPT2 
003287656066 


Suche DATAMAT für CPC mit Hand¬ 
buch und 3"-Diskette von DATA 
BECKER, Hansjörg KLEMP, Ittelsburger 
Str.39, W-8944 GRÖNENBACH 
Tel. 08334/1681 


FÜR CPC 6128 AKTIENVERWALTUNG 
U. HYPOTHEKENVERWALTUNG 
07542/61 15 PIETHE AB 1800 UHR 


Suche für CPC COMPOSER-STAR 
(Kass. o. Disk.), GRAPHIK & SOND 
(Data Becker) sowie gute Musik 
Programme, M. Rätz, Auerbacher 
Ring 43, 0-1150 Berlin 


TURBO-PASCAL MIT HANDBUCH 
FÜR CPC 6128. TEL. 0 61 51/37 36 75 


Besitzer von Schneider CPC 6128 
sucht Schreibprogramme,(möglichst 
Deutsch)sowie Spiele oder auch 
Druck-oder-Zeichenprogramme. 

Tel. 06431/74535 ab 13.00 Uhr 


Suche Hardware 


Suchen Schneider Joyce PCW 8512. 
Tel. 0551/45995 Schünke 


Suche für PCW 8512 Joystick-Control¬ 
ler sowie Spiele-PD. Angebote an 
U. Langfort, Postfach 3428, 2278 Nord¬ 
dorf/Amrum, Tel. 04682/542 


SCHÜLER SUCHT DIGITALE J/O KAR¬ 
TE FÜR CPC 664 TEL. 0 50 42 39 61 


FREMDDRUCKERANSCHLUSS FUER 
JOYCE (INTERFACE) 02841/57916 
ABENDS 


Verschiedenes 


SUCHE vollst. Doku f. JOYCE- 
CPS-8256-Seriell/Parallel-Schnittstelle. 
F. Berger, Halberauweg 12, 8434 
Bercking Tel. 08462-2508 


Disketten-, Datenkonvertierung 

JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67, 6382 
Friedrichsdorf, Tel. 0 6175/6 04 G 


CPC6128/GT65-BTX-MP2-TAPE-P. VB 
+ ZUBEHÖR-DIV.ZEITSCH/SH ab 1985 
incl.DATABOX 3"u.TAPE, Prg./SPIE- 
LE-DBASE-BÜCHER ROM-LISTING... 
F.G Pf1246-W3590 BAD WILDUNGEN 


FARBBÄNDER: Joyce DM 12/NLQ401, 
DMP3000, PCW9512 je DM 9 u.v.a. 
ETIKETTEN: 400 St. 89x36 DM 7,50 
DISK.: 10 St. ab DM 6 m. Garant. 
PORTO DM 5/NN-GEB. DM 5 INFO: 

W. KUHN, EDV-ZUBEHÖR,HES- 
SENSTR.7, 6340 DILLENBURG 2 
BTX: *KUHN# 

TEL/FAX/BTX: 02771/32688 G 


VERK. PC-INTERNAT. 4/86 BIS 12/89 
DM 60.- zzgl. VERSAND 0821/81 4584 


Bis 100 DM Nebenverdienst tägl. 
Leichte, legale Arbeit. Info gegen 1 DM 
bei-D.Philippaerts, Heggener Weg 20, 
5952 Attendorn 


Tausch 


TAUSCHE ORIGINALPRG. (CAS.DISK) 
LISTE AN: R. MEYER, AM KRAHNAP 
7, 4000 DÜSSELDORF *EVTL.VER- 
KAUF 


Club 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von: 
JOYCE-USER-CLUB c/o Je. Berghof, 
Roseggerstr.5, 5600 Wuppertal 2 


USER-CLUB für Amstrad/Schneider 
PC 1640/1512-Anwender sucht noch 
Mitglieder.lnformations- und Erfah¬ 
rungsaustausch stehen an erster 
Stelle. Info kostenlos bei Willy Stern, 
Kennedystr. 38, 8039 Puchheim. Anfra¬ 
gen auch unter BTX-Nr. 

0898002545, es wird gleich geant¬ 
wortet. 


Ab Heft 8 / 9*91 gibt es Ihre 

PC Amstrad International 

nur noch im Bahnhofs-Buchhandel 
oder im Abonnement! 
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Der Kleincomputer Compact (KCc) 
wurde in geringen Stückzahlen in Mühl¬ 
hausen in Thüringen gebaut. Grob gese¬ 
hen ähnelt er im Design dem CPC 6128 
plus, hat aber kein eingebautes Lauf¬ 
werk. 


RAMEN. /RAMDIS funktio¬ 
niert nur beim Lesen richtig. 
Beim Beschreiben eines exter¬ 
nen RAM wird auch der inter¬ 
ne RAM mitbeschrieben. 
Dieser Fehler wurde beim 
CPC 664 und beim CPC 6128 
behoben. Der KCc funktio¬ 
niert bei der Behandlung eines 
externen RAM wie ein CPC 
664. 


Die Hardware des KCc lehnt sich in ih¬ 
rer Funktion an die des CPC 464 an. 
Spezielle Monitore wurden aber für ihn 
nicht gebaut. Dafür besitzt er als Aus¬ 
gänge eine SCART-Buchse und einen 
eingebauten Modulator zum Anschluß 
an ein Fernsehgerät. 

Die Funktion des ASIC im CPC wird im 
KCc durch mehrere, zum Teil auch hö¬ 
her integrierte, programmierbare 
Schaltkreise übernommen. Es gibt nur 
vier Unterschiede, die zu ungleichen 
Reaktionen des CPC 464 und des KCc 
führen können und in der anderen Hard¬ 
ware begründet liegen. 

Im CPC 464 hat sich ein Schaltungsfeh¬ 
ler eingeschlichen. Das Signalspiel 


ttikl I: Lm Blick auf die Leiterplatten der beiden Cotnpuh 


KCc - Ein Double für 
den CPC 

Was unterscheidet den 
KC compact vom CPC 

Wie es bei den großen Brüdern, den PCs, IBM-kompatible gibt, so gibt es, 
man höre und staune, für den CPC auch einen CPC-kompatiblen. Dies ist 
der KC compact aus Mühlhausen. Im folgenden werden Sie etwas über 
seine Eigenheiten und Unterschiede zum CPC erfahren. 


Die Ansteuerung des Drucker- 
Interface im CPC 464 ge¬ 
schieht über eine Parallel¬ 
schnittstelle. Es werden nur 
sieben Datenbits übertragen. 
Das ist ausreichend, wenn nur 
ASCII-Zeichen ausgedruckt 
werden sollen, nicht aber für 
die Ausgabe von Pixelgrafi¬ 
ken. Im KCc wird auch das 
achte Datenbit an der Drucker¬ 
schnittstelle zur Verfügung ge¬ 
stellt. Dies erfolgt, wie in der 
Anleitung im Heft 5/86 be¬ 
schrieben, zum Umrüsten des 
CPC 464 auf eine acht Bit 
breite Druckerschnittstelle. Das Port zur 
Kassettenausgabe wird als achtes Da¬ 
tenbit um funktioniert. 

Im CPC wie auch im KCc ist nur eine 
hardwaremäßige Interrupt-Quelle vor¬ 
handen, die sich auf die Synchronim- 
pulse der Bildschirmausgabe stützt und 
nach jeweils 52 Bildschirmzeilen für ei¬ 
nen neuen Interrupt sorgt. Bei der Inter¬ 
rupt-Quittierung erzeugt die CPU 
gleichzeitig die Signale /IORQ und 
/ML Diese Interrupt-Annahme wird er- 
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kannt und führt zur Zurücknahme der 
Interrupt-Anforderung. Im CPC spielt 
der Zeitpunkt der Interrupt-Quittierung 
noch eine besondere Rolle. Wenn inner¬ 
halb der ersten 32 Zeilen nach einer In¬ 
terrupt-Anmeldung keine Quittierung 
erfolgte, wird die nächste Interrupt-An¬ 
meldung verschoben. Dadurch wird 
verhindert, daß die CPU nur noch Inter¬ 
rupts bearbeitet. 

Im KCc wird aus technischen Gründen 
diese Kontrolle nicht durchgeführt. Un¬ 
abhängig von der Interrupt-Quittierung 
wird alle 52 Zeilen ein Interrupt gene¬ 
riert. Das führt leider bei Programmen, 
die sehr zeitkritisch gestaltet sind, in ei¬ 
nigen Fällen zu Verfälschungen bei der 
Farbwiedergabe. 

Der KCc besitzt standardmäßig keiner¬ 
lei Laufwerke. Zum Betrieb muß also 
zusätzlich noch ein Kassetten- oder Dis¬ 
kettenlaufwerk angeschlossen werden. 

Mit dem zur Nutzung des Diskettenlauf¬ 
werks notwendigen Floppy-Interface 
für den KCc werden noch weitere 64 
kByte Speicherkapazität zur Verfügung 
gestellt. Dann entspricht die RAM- 
Konfiguration fast der eines CPC 6128. 


Bild 2: Die Anschlüsse der beiden Computer 

Der Unterschied besteht darin: Gibt 
man ein &C3 auf der I/O-Adresse 
&7FXX aus, dann stellt man am CPC 
6128 und am KCc mit Floppy-Interface 
verschiedene RAM-Konfigurationen 
ein, 0, 3, 2, 7 für den CPC 6128 und 0, 
7, 2, 3 für den KCc. 

Jede Ziffer stellt die Nummer für einen 
16-kByte-RAM-Block dar. Die Stelle 
der Ziffer besagt, ob der RAM-Block 
auf der Adresse &0000, &4000, &8000 
oder &C000 beginnt. Die RAM-Konfi- 
guration im CPC ist sehr sinnvoll und 
wird von verschiedenen Programmen 


benutzt, kann aber vom KCc mit seiner 
Schaltungstechnik nicht im vollen Um¬ 
fang nachvollzogen werden. 

Die Software des KCc entspricht der des 
CPC 6128. Alle Vektoren und RAM-Va¬ 
riablen haben dieselbe Bedeutung und 
Adresse. Die Unterschiede zwischen ei¬ 
nem CPC und einem KCc sind aus der 
Sicht von Programmen, die auf einer 
dieser Maschinen laufen, sehr gering. 
Deshalb ist bei über 90 Prozent der Soft¬ 
ware für den CPC zu erwarten, daß sie 
ohne Probleme auch auf dem KCc läuft. 

(Dr.-Ing. Jörg Leipold/jg) 





Altientaxi hen-Power — AMSTRAD Notebook ANB-J86SX 


Klein, kom¬ 
pakt, winzig 

AMSTRADs 
Neu¬ 
vorstellungen 
auf der 
CeBIT 91 

Daß AMSTRAD in Sachen Rechner¬ 
entwicklung sehr rührig ist, hat die 
Vergangenheit ausführlich gezeigt. 
l)a der Stand der Technik stets vor¬ 
wärtsschreitet, hat der Hersteller 
auf dem PC-Sektor natürlich auch 
einige Neuheiten zu bieten. 

Offiziell vorgestellt wurden auf der 
CeBIT die Prototypen der demnächst in 
Serie gehenden neuen Rechner von 
Alan M. Sugar höchstpersönlich, seines 
Zeichens Präsident und Gründer von 


AMSTRAD. Sugar ging zunächst auf 
die bisherige Produktentwicklung bei 
AMSTRAD ein, die sich über die CPCs 
und PCWs bis hin zu den ersten PCs, 


den Rechnern der Baureihe lxxx, fort¬ 
setzte. Das generelle "Flaggschiff 1 auf 
dem PC-Sektor von AMSTRAD wird 
die neue Generation 3 bleiben. Da der 
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Bild 2; Reichlich schöne Grafik - der ACL-386SX 


Markt jedoch nicht stillsteht, ist auch 
AMSTRAD bemüht, so Sugar. den über 
die Generalion 3 hinausgehenden Wün¬ 
schen der Kunden in jedem Falle ge¬ 
recht zu werden. Das Ergebnis dieser 
Bemühungen sind drei neue Rechner, 
der Notebook ANB-386SX , der Laptop 
mit neuartigem Farbdisplay ACL- 
386SX und ein kleinformatiger PC, der 
PC4386SX , die in Kürze zur Ausliefe¬ 
rung kommen. 

Notebook ANB-386SX 

Mit dem ANB-386SX bringt AM¬ 
STRAD einen sehr flachen Notebook¬ 
PC mit den Maßen 280 x 216 x 52 Mil¬ 
limeter auf den Markt, der über eine 
reichhaltige Ausstattung verfügt. Der 
etwa 3200 Gramm schwere (oder leich¬ 
te) PC kommt in einem gefälligen, an¬ 
thrazitgrauen, stabilen Kunststoffge¬ 
häuse daher. 

Er verfügt über einen 80386SX-Prozes- 
sor und bietet in der Grundversion 
1 MByte Arbeitsspeicher, der bis insge¬ 
samt 4 MByte aufgerüstet werden kann. 

Der hintergrundbeleuchtete, monochro¬ 
me LCD-Monitor mit VGA-Auflösung 
und 64-Graustufen-Darstellung ist auf 
neuestem Entwicklungsstand und arbei¬ 
tet auch in den Bildschirmmodi EGA, 
MDA und Hercules. Die Tastatur ist mit 
82 Tasten und integriertem Nummern¬ 
block gut bedienbar. 

Zunächst wird der ANB-386SX mit ei¬ 
ner schnellen 40-MByte-Festplatte an- 
geboten, was auf den ersten Blick aus¬ 
reichen mag. Will man jedoch mit Spei¬ 
cherplatzfressern wie etwa Windows- 
Programmen arbeiten, dürfte sich die 
Plattenkapazität schnell als zu gering er¬ 
weisen. Da jedoch gerade die "großen" 
Festplatten mit hohem Fassungsvermö¬ 
gen in ihren Maßen immer kompakter 
werden, wird AMSTRAD sicher bald 
leistungsfähigere Festplatten für diesen 
Rechner anbieten. Zutritt für Daten in 
den Rechner ermöglicht ein Disketten¬ 
laufwerk von 3,5 Zoll und 1,44 MByte. 

Das Notebook wird als klassischer Ver¬ 
treter dieser PC-Version auch über Akku 
betrieben. AMSTRAD gibt die Be¬ 
triebsdauer des NiCad-Akkusatzes mit 
drei Stunden an. Über ein kombiniertes 
Netz- und Ladegerät (100/240 Volt, 50 
bis 60 Hz) besieht die Möglichkeit des 
Netzanschlusses, wobei der Akkusatz 
gleichzeitig aufgeladen werden kann. 

Um Akkustrom zu sparen, verfügt das 
AMSTRAD-Notebook über verschie¬ 
dene "Spar-Features", mit denen die Be¬ 
triebsdauer gestreckt und die Akkus ge¬ 
schont werden sollen. 


In Sachen Erweiterung und Anschlüsse 
richtet sich der ANB-386SX nach dem 
von IBM propagierten PS/2-Standard 
beim Anschluß von Maus und externer 
Tastatur. 

Ein externer VGA-Monitor kann eben¬ 
falls angeschlossen werden. Interessant 
ist, daß der "Flachmann" über einen 
Steckplatz für eine Erweiterungskarte, 
beispielsweise ein Modem, verfügt. 

Der Endverbraucherpreis in der Grund¬ 
version wird bei zirka 5995,- DM inklu¬ 
sive Mehrwertsteuer liegen. Mit dem 
Laptop ACL-386SX steift AMSTRAD 


einen verbesserten Nachfolger des oh¬ 
nehin schon erstklassigen ALT-386SX 
vor, ein Rechner, der weltweit hervorra¬ 
gende Beurteilungen fand. 

Neu am "Neuen” ist eine Bildschirm¬ 
technologie, die sich TFT - Thin-Film- 
Transistor nennt. Das Display ist hinter¬ 
grundbeleuchtet und entspricht dem 
neuesten Entwicklungsstand. Wie 
schon bei seinem Bruder, dem ALT- 
386SX. stellt der ACL-386SX Text und 
Grafik in VGA-Auflösung mit maximal 
640x480 Bildpunkten bei 256 aus 24000 
Farben auf seinem Bildschirm dar. 



Bild 3: Der neue Laptop bietet stabile Verarbeitung und ausreichende Eru citerungsmögUchkciteu 
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Bild 4: Der PC4386SX - klein, aber oho 


Im Unterschied /um Vorgänger kann 
man jedoch mit dem neuartigen Display 
"aus allen Ecken" umgehen, will hei¬ 
ßen, daß die Bildschirmdarstellung aus 
jedem Blickwinkel scharf und kontrast¬ 
reich ist - ein Novum in der LCD-Tech- 
nik. 

Der "Neue" verfügt aber noch über wei¬ 
tere, leistungsfähige Features: So wurde 
als "Seele" des Rechners ein 80386SX 
mit 20 MHz verwandt, und der Massen¬ 
speicher lagert satte 60 MByte Daten 
ab, die man ihm über ein Diskettenlauf¬ 
werk von 3,5 Zoll und 1,44 MByte zuf üh¬ 


ren kann. Die Stromversorgung besteht 
aus einem auswechselbaren Akkusatz. 

Ebenfalls wie beim Notebook kann man 
den Laptop bei gleichzeitigem Laden 
der Akkus ans Netz anschließen. 

AMSTRAD wird seinen neuen 
"Schleppi" mit dem demnächst erhältli¬ 
chen MS-DOS-5.0-Betriebssystem aus¬ 
liefern. Um ihn käuflich zu erwerben, 
sind stolze 12995,- DM hinzublättern. 

Big power in little case: PC4386SX 

Obwohl die PCs heutzutage aus vielen 
Büros nicht mehr wegzudenken sind, 


sorgen sie doch oft für ein großes Pro¬ 
blem: Sie nehmen Platz weg. Eine Lö¬ 
sung ist nun, auf den Schreibtisch einen 
Aufbau zu setzen, der Platz für den 
Rechner, den Monitor, den Drucker und 
einiges mehr bietet. 

Die andere, elegantere, jedoch nicht ge¬ 
rade billige Lösung ist, daß man sich ei¬ 
nen kleinen Rechner zulegt, der jedoch 
dasselbe leistet wie ein "Großer". Der 
PC4386SX ist ein solcher "Kleiner", der 
trotz aller Winzigkeit (250x264x70 
mm) einiges bietet. 

In der Grundversion verfügt der mit ei¬ 
nem 20-MHz-80386SX-Prozessor aus¬ 
gestaltete Rechner über 4 MByte Ar¬ 
beitsspeicher, die bis 16 MByte erwei¬ 
terbar sind. 80 MByte Daten können auf 
die sehr schnelle Festplatte mit einem 
Diskettenlaufwerk von 3,5 Zoll und 
1,44 MByte geladen werden. Für den 
schnellen Datenzugriff auf der Festplat¬ 
te steht serienmäßig ein 64-kByte-Cache 
bereit. 

Auch bei den Monitoren will AM¬ 
STRAD mit dem PC4386SX weg von 
Größe und Klobigkeit. Zwei 10-Zoll- 
Monitore werden angeboten: ein mono¬ 
chromer VGA-Flachmonitor und ein 
hochauflösender VGA-Farbmonitor mit 
einer SONY-Trinitron-Röhre und 0,26 
mm Punktabstand. Preislich liegt der 
"kleine AMSTRAD" je nach Monitor 
bei 4995,- DM oder 5595 - DM inklu¬ 
sive Mehrwertsteuer. 

Allein mit diesen Leistungswerten 
macht der Mini einen sehr guten Ein¬ 
druck, zumal er nicht nur viel schafft, 
sondern wirklich drollig ausschaut und 
manchem Schreibtisch alle Ehre ma¬ 
chen wird. Ehre allein schon deswegen, 
weil trotz der wirklich geringen Ausma¬ 
ße zwei 16-Bit-Steckplätze halber Bau¬ 
länge für Erweiterungskarten bereitste¬ 
hen. 

An Zubehör hat sich AMSTRAD eini¬ 
ges einfallen lassen: Außer dem altbe¬ 
währten Betriebssystem MS-DOS 3.3 
erhält man den Oberflächen-Schlager 
Windows 3.0 und den AMSTRAD Pro¬ 
gramm-Manager , eine leistungsfähige, 
grafikorientierte Benutzeroberfläche 
unter Windows, die es vor allem den 
Einsteigern trotz Windows noch leichter 
machen soll, mit dem PC umzugehen 
(der PS/1 von IBM läßt grüßen ...) - 
wenn sie wollen. 

(Thomas Kallay) 



Bild 5: PC-Technik auf kleinem Raum - der Mini von innen 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mit ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung macht auch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß: 

• Einfügen, Fließtext. Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf DIN-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten • Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einstellmöglichkeit in 
Tabellenform 

ConText CPC 

Hervorragend in Preis und Leistung dm 59,- * 


Turbo-DATA-CPC 

Volldampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mit Turbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC: 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Bildschirmansichten zu 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 

Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son- und Seikosha-Drucker« Anpassung auch an gedrehte 
Bitbild-Bytes, z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- : 


CPC Special Offer 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprite-Animation, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Offer 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung mit hohem Bedienungskomfort und integriertem 
Diskettenmanager. Verwaltung, Archivierung, Katalogisierung Ihrer Disketten und Aus¬ 
druck der Daten - mit Disksort-Star kein Problem, 


DESIGNER-STAR 

Grafikprogramm zum komfortablen Erstellen von Bildschirmgrafiken. Zur Bedienung ist 
ein Joystick oder eine Maus nicht notwendig. Aut Tastendruck werden Sie mit Hillsmenüs 
durch das Programm geführt 


CREATOR-STAR 

Erstellen Sie eigene Trickfilme aut Ihrem CPC • mit einem Kulissen- und Sprite Designer 
sowie beliebigen Lautschriften. In einer eigenen Programmiersprache mit Editor und 
Compiler können Sprites verbunden und Kulissen übereinandergelegt werden. 

STAR-MON 

Professionelle CPC-Programmierung mit Assembler. Disassembler und Monitor. Das 
System besitzt einen eigenen Diskettenmonitor und Editor, eine Trace-Funktion, kann 
Breakpoints setzen und Barikswitching vornehmen. 

CPC Special Offer 2 

Für CPC-Profis dm 59,- * 



















CPC-Basic 


Mit dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 


FABACOM - 

schnell durch Compilierung 


DM 49,- 


Schnelle Programme durch FABACOM: 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm¬ 
teilen für Nachladeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 

• Kompatibel zur Vortex-Peripherie inklusive 
der RAM-Disk 

• Alle CPM-Dienstprogramme können wei¬ 
terhin genutzt werden 

• Ausführliche deutsche Bedienungsanlei¬ 
tung und Beispielprogramme 


FAst BA 



BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 






















Das Software-Experiment 

Spielend den CPC beherrschen lernen 


Nehmen Sie teil am Abenteuer "Computer”! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst¬ 
lichen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 

Das umfangreiche, 180seitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie selbst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 


Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz": 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 



Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bildern. 

Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie, was für neue, noch nie dagewesene Formen sich 
ergeben. 

Mit roher 
Rechengewalt 

Mit dem "Brute- 
Force'-Algorith- 
mus darf der 
CPC so richtig 
loslegen und 
spielt mit roher 
Rechengewalt in 
dem afrikani¬ 
schen Strategie¬ 
spiel "Kalaha" al¬ 
le Gegner an die 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 
dem schlagen? 



Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 


Das Ökologie- 
Experiment 

Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 

Wordketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 

Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 
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Das Software-Experiment 
Siebzehn verschiedene, lauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur dm 39,-* 








































CPC-Spiele 

Zu unglaublichen Preisen! 


Faszination in 3D 

Zwei Super-Aktion-Spiele inklusive 
3D-Brille 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 
Terranaut I - Science-Fiction 
Fruits - Geschicklichkeit 
Terranaut II - Textadventure 


dm 29,-* 


Special Otters III 

Neun interessante Spiele für alle CPCs 
2 Disketten, dm 39,-* 


Kampf den Insekten - 

Erlebnisreiches 
Geschicklichkeitsspiel 
mit Überraschungen 


Funbouncer - schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktions-Editor 


DM 29,-‘ 


Know CPC 


Interessantes Frage- und Antwortspiel für die 
ganze Familie DM 29,-* 


StarTest 

Aktion-Adventure für alle CPCs 


DM 19,-* 


CYRUS II Schach^ 

Das bewährte Schachprogr “ 
barer Spielstarke und deutscher 

Kassette 


it 3D-Display, einstell- 
ungsanleitung 
DM 10,-* 


3D-Light Cycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film! Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt in 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Effekte zusammen mit einem 
professionellen Sound lassen 
Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit 
man live gesehen haben. 


Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-Darstellung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnügen. 

Für alle CPC 464,664,6128 mit Farbmonitor. Das Spiel 3D-LightCycle 
kann in 2D-Darstellung auch auf Grünmonitor gespielt werden 


DM 39, 


Game Box 3 

Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 


Alphajet - Weltraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 


Telefomania - 

Interessantes Science- 
Fiction-Spiel mit völlig 
neuer Spielidee 


























CPC-Einzelhefte 1989 




CPC-Sammelpack 

Solange unser Vorrat reicht, können Sie mit Einzelhef¬ 
ten und günstigen Paket-Angeboten Ihre Sammlung 
der Amstrad International vervollständigen - 
mit Wissen, das heute noch genauso wertvoll ist wie 
damals. 

Einzel hefte 1989 

pro Ausgabe dm 6,50 

Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 und 1/89 dm 39,-* 



























DAS AJBfl 


mit aen vielen Vorteilen 

• Preisvorteil 

• Informations¬ 
vorsprung 

• Zustellkomfort 


Abo -Orde r Zeitschrift | 

Hiermit bestelle ich »PC International.« für mindestens 

□ 12 Ausgaben D 6 Ausgaben 

Preise: BRD 12 Ausgaben 66, - DM 

6 Ausgaben 33,- DM 
Auslandspreise: Europa 12 Ausgaben 96,-DM 

6 Ausgaben 48,- DM 

Außereuropäisches Ausland 12 Ausgaben 120, - DM 
6 Ausgaben 60,- DM 

Lieferung erfolgt ab der nächsterreichbaren Ausgabe. 


Abo-Order DATABOX 


Hiermit bestelle ich die - CPC-Databox □ Joyce-Databox 
für mindestens _ 12 Ausgaben D 6 Ausgaben 

als □ Cassette Z Diskette 3" 

Bezugspreise Inland (elnschl PortotVerpackung) 

Cass, 6 Ausgaben 90, - DM, 12 Ausgaben 180,-DM 
Disk 3“ 6 Ausgaben 150.- DM, 12 Ausgaben 300,- DM 
Bezugspreise Ausland (eingekl. Werte außereuropäisch) 
Cass 6 Ausg 100,-(120,-) DM, 12 Ausg. 200,-(240,-) DM 
Disk 3”6 Ausg 160,-(180,-) DM. 12 Ausg 320, - (360,-) DM 
Lieferung erfolgt ab der nächsterreichbaren Ausgabe 


Lieferanschrift Rechner-Typ 

Z Geschäft □ Privat C CPC DJoyce 


Vorname, Name 


Firma (nur wenn Lieferadresse) 


Straße, Nr./Postfach 


PLZ/Ort (Ihne genaue Amchrifi augel/en!) 

Dieses Abonnement verlängert sich automatisch um 6 bzw. 12 Ausgaben, 
wenn es nicht sechs Wochen vor Ablaul schriftlich gekündigt wird. 


Datum 1. Unterschrift ;b:i MMerjahrigei i»s aewuiichcn vtomun) 


□ Bequem und bargeldlos durch Bankabbuchung 

I I I I M I I I 

Bankleitzahl 

Konto-Nr./ Inhaber 

Geldinstitut 

□ Gegen Rechnung - zahlbar innerhalb zwei 
Wochen nach Erhalt. (Bitte keine Vorauszahlung 
leisten — Rechnung abwarten.) 

Bitte unbedingt auf der Vorderseite 
eine zweite Unterschrift leisten! 




über 

CPC und PCW Joyce 

sammeln Sie mit 

• Einzelheften 

• Sonderheften 

• DATABOX 


5&AMST 



I N T 



NATIONAL 



für 


CPC und PCW Joyce 

erwerben Sie im 

Bestellservice 

preisgünstig 

und 

schnell 


E inzelhefte und DATABOX Sonderheft und D ATA BOX 


+ 
(Inland 


Porto/Verpackung 
ind 4, - DM, Ausland 6, - 


6, 

Einzelheft 
Ausgabe 
- DM/Stck. 

CPC 

Kassette 

14.- DM/Stck, 

CPC 

3“-Diskette 
24,- DM/Stck. 

Joyce 
3“-Diskette 
24,- DM/Stck. 

□ 

'87 bis 11 '88 

Bitte eintragen) 


□ 

□ 

□ 

- 

□ 

□ 

1 

1 '89 

- 

□ 

□ 

L 

2'89 

- 

□ 

□ 

L 

3'89 

- 

□ 

□ 

c 

4'89 

- 

□ 

□ 

□ 

5’89 

- 

□ 

□ 

G 

6'89 

□ 

□ 

□ 

□ 

7'89 

□ 

□ 

□ 

□ 

8'89 

□ 

□ 

□ 

□ 

9'89 

□ 

□ 

□ 

□ 

10'89 

□ 

□ 

□ 

□ 

11'89 

□ 

□ 

□ 

12'89 

□ 

□ 

□ 

□ 

1 '90 

□ 

□ 

□ 

□ 

2'90 

□ 

□ 

□ 

□ 3'90 

□ 

□ 

□ 

J 

4'90 

□ 

□ 

□ 

J 

5'90 

□ 

□ 

□ 

J 6/7'90 

- 

□ 

□ 

J 

8/9'90 

- 

□ 

□ 

□ 

10/11'90 

□ 

□ 

□ 

□ 

12/1'90/91 

□ 

□ 

□ 

□ 

2/3'91 

□ 

□ 

□ 

□ 

4/5'91 

□ 

□ 

□ 

□ 

6/7'91 

□ 

□ 

□ 


DM 14,- 

3-Zoll-Diskette 

Sonderheft + DATABOX 
3-Zoll-Diskelte DM29,- 

C 309 Nr. 3/86 

n 319 DM 29,- 

0 3044 

□ 311 Nr. 5/87 

□ 334 DM 38.- 

0 3045 

U 312 Nr. 6/88 

□ 340 DM 38.- 

0 3046 

□ 313 Nr. 7/88 

□ 3135 DM38.- 

0 3047 

D 3136 Nr 8/89 

Ü3142 DM 38.- 

0 3048 


i Best,Nr .3043 CPC-Sonderheft-Kraftpaket 

5 Stck. CPC-Sonderhefte 3, 5, 6, 7, 8 


DM 35,- 


Besl.-Nr. 3042 Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 + 1/89 DM gg 


DM) 


DM Gesamtbetrag: 


DM 


CPC-Bestellservice 


Joyce- 


Bestellservice 


3“-Diskette 

Kassette 

DM 

3"-Diskette 

Joyce-Software 

DM 

□ 

207 

- 

ConText CPC, Textverarbeitung 

59,- 

□ 

215 

Volume 1, Charakter-Designer 

49,- 

□ 

202 

- 

CopyShop, Hardcopy-Programm 49,- 

□ 

216 

Volume 2, Dateiverwaltung 

49,- 

□ 

214 

_ 

Turbo Data CPC 

69,- 

□ 

217 

Volume 3, GSXplot 

59,- 






□ 

219 

Volume 4, Bild-Editor 

49,- 

□ 

205 

— 

Special Öfter 2 

59,- 










□ 

220 

Volume 5, Datenbank 

69,- 

□ 

213 

— 

Software-Experiment 

39,- 










U 

221 

Volume 6, Tabellenkalkulation 

59,- 

□ 

209 


FaBaCom, Basic-Compiler 

49,- 










□ 

222 

Volume 7, Grafische Benutzeroberfläche 69, - 

□ 

104 

- 

Startest 

19,- 












Joyce-Sonderheft-Pakete 


□ 

1011 

— 

Fantastic Four, Spielesammlung 29,- 










□ 

3050 

Sonderheft 2 + DATABOX, 2 Disketten 3" 

29,- 

□ 

107 

— 

Special Öfter 3, Spielesammluna39, - 










□ 

3051 

Sonderheft 3 + DATABOX, 2 Disketten 3" 

29,- 

□ 

1369 

- 

Faszination 3D 

39,- 

□ 

3052 

Sonderheft 4 + DATABOX, 2 Disketten 3“ 

29,- 

□ 

1012 

_ 

Game-Box III 

29,- 












Joyce-Bücher 


L 

106 

_ 

Know CPC 

29,- 










□ 

406 

Joyce - mehr als ein Textsystem 


□ 

211 

- 

Fraktal Generator 3D CPC 

49,- 



+ DATABOX, Diskette 3“ 

49,- 


+ Porto/Verpackung 

(Inland 4, - dm, Ausland 6. - DM) _ DM Gesamtbetrag:. DM 

























































































































AMSTRAD 



Abonnement 

Rechnungsanschrift 

Vorname. Name 


Straße. Nr./Postfach 


PLZ/Ort 


Widerrufsrecht 


Ich weiß, daß ich diese Vereinbarung innerhalb einer Woche 
beim DMV-Verlag, Postfach 250. 3440 Eschwege, schriftlich wi¬ 
derrufen Kann, wobei bereits die rechtzeitige Absendung mei¬ 
nes Widerrufschreibens zur Fristwahrung ausreicht. Ich 
bestätige das durch meine zweite Unterschritt 


Datum 2. Unterschrift moi Minden’»''«®" dBS oeBeeiichan vorvoi#™; 



Einzel hefte 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


PLZ/ORT 

n Den Befrag bezahle ich mit dem beigefügten Verrechnungsscheck, 

J Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD). 


Datum Uritoischrifl (bei Minderjährigen dos gesetzlichen Vertreters) 


A T I 0 N A L 



CPC-/PCW-Joyce-Bestellservice 

Ja, Ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 

Straße/Postfach 

PLZ/ORT 

C Den Befrag bezahle ich mif dem beigefüglen Verrechnungsscheck. 

C Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


Datum Unterschritt (bei Minderjährigen dos goselzllchen Vertreters) 


Antwortkarte 


Bitte 

ausreichend 

frankieren 



Alle 2 Monate bietet Ihnen PC In¬ 
ternational aktuelle Informationen 
zu CPC und Joyce. Nutzen Sie 
dieses Wissen mit einem Abonne¬ 
ment zu Ihrem ganz persönlichen 

• Preisvorteil 


• Informationsvorsprung 


• Zustellkomfort 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Zur Erinnerung: 

Mein persönliches Abonnement wur¬ 
de bestellt am j, 


- Widerrufsrecht - 

Ich weiß, daß ich diese Vereinbarung innerhalb ei¬ 
ner Woche beim DMV-Verlag, Poslfach 250, 3440 
Eschwege, schriftlich widerrufen kann, wobei bereits 
die rechtzeitige Absendung des Widerrufschreibens 
zur Fristwahrung ausreicht, 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 

• Sonderheften 

• DATABOXEN 

• Sammelpacks 

Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 



Die Power-Software von PC Am¬ 
strad für CPC und PCW Joyce ist 
unter Kennern bereits ein Begriff, 
und unser Sortiment wird Monat 
für Monat gepflegt und erweitert, 
Und vergessen Sie nicht: Soft¬ 
ware von PC Amstrad ist auch ein 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 

• preisgünstig 


i 

! 


• bewährt 


• praxisgetestet 

Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft- 
wäre wurde bestellt am 



































































Zum Sammeln 
unentbehrlich 



Die 

DMV-Sammelordner 


Sonderh efte • Sammelordner • Demonstrationen 


Ausgabe 
DOS EXTRA 

DM 18,- 

DAT 

2 Stk. 5 1/4“-Disk 

DM 35, - 

A BOX 

1 Stk. 3 1/2“-Disk 

DM 35, - 

Best.-Nr. DM 

L 60500 DOS-Taschenbuch Band 1 29,80 

□ 60510 DOS-Taschenbuch Band 2 29,80 

□ 60520 DOS-Taschenbuch Band 3 29,80 

□ 60530 DOS-Taschenbuch Band 4 29,80 

L 402 Die Basic2-Toolbox 49, - 

1 403 Die Basic2-Toolbox, 5 1/4'-Diskette zum Buch 29, - 

□ 345 PASCAL Sonderdruck 25, - 

□ 3511 DMV-Computer-Wissen, Band 1 , Basic-Toolbox 18, - 

i 482 QuickStart ConText PRO 19,80 

□ 356 Nr. 3 

□ 357 

□ 358 

□ 381 Nr. 4 

□ 3811 

□ 3812 

□ 382 Nr. 5 

□ 3813 

□ 3814 

1 383 Nr. 6 

[ 3815 

□ 3816 

□ 384 Nr. 7 

LI 3817 

L: 3818 

□ 385 Nr. 8 

□ 3819 

□ 3820 

C 386 Nr. 9 

□ 3821 

□ 3822 

1 387 Nr. 10 

C 3823 

TI 3824 

□ 388 Nr. 11 

L I 3825 

1 3826 

□ 389 Nr. 12 

□ 3827 

[I 3828 

Sammelordner 2 Stk. 15,80 

C 391 Nr. 13 

— 


□ 392 Nr. 14 

C 3829 

□ 3830 

□ 530 DOS 

C7 534 toolbox 

□ 536 DOS TEST 

□ 531 PC International 

□ 535 PCpur 

□ 537 AMIGA DOS 

□ 393 Nr. 15 

□ 3831 

□ 3832 

Pascal 

Sonderdruck 

□ 346 

□ 347 

DMV-Computer- 

wissen Band 1 

□ 3512 

□ 3513 

zwischensumme + Porto und Verpackung 
(Inland 4,- DM, Ausland 6,- DM) 

DOS- 

Taschenbücher 

5 1/4“-Diskette 

DM 24, - 

3 1/2‘‘-Diskette 

Demodisketten jeweils DM 5, - 

DM 24, - 

00 1 Fraktal 3D + MaskEdil 

□ OOS ConText PRO 

□ 008 DMV-Show-Manager 

□ 012 GraphBas PC 

P 003 ERGO 3.0 
r 007 3D-Draw 

T 009 Navigator 

BAND 1 

□ 60501 

□ 60502 

BAND 3 

L 60521 

□ 60522 

BAND 4 

~ □ 60531 

□ 60532 

Gesamtbetraa: dm 


PC- 

Software 

vom 

DMV 

Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 


PC-Software 


5 1 

4“ 

3 72" 

DM 

5 74" 

3 72“ 

l 

DM 

2282 


2281 a 

ConText EASY, 

99.- 

6035 3 

6036 

Fontllno 


2407 

a 

2406 a 

ConText PRO, 

199,- 

6027 Z 

6028 : 

DOS-CAD 3.0 


2415 

ü 

2416 □ 

ConText-ADREVA 

49,- 

2700 

2701 □ 

DMV-Faktura 


2419 

□ 

2420 _J 

ConText-Zelcheneditor 

99,- 

2710 O 

2711 Q 

DMV-Ateller 


2421 

D 

2422 i — 

ConText-Rechtschrelbhllfe 

69,- 

2712 D 

2713 J 

DMV-Ateller Zusatzlonts 


2650 

□ 

2651 IJ 

DMV-Power-Pock 

349,- 

2714 □ 

2715 _ 

DMV-Ateller Symbole 


256 

□ 

257 □ 

PC-VIrusDoktor 

99,- 

20506 

20507 C 

PC-Software pur, Festplatlon-Opbmlerer 

69,- 

2903 

LI 

2904 □ 

PC-VIrusFlnder 

149,- 

20506 ; 

20509 LI 

PC-Software pur. MasterDat Datenbank 

69.- 

2905 

□ 

2906 Z 

GraphBas PC. Turbo Basic 

99,- 

20510 □ 

20511 □ 

PC-Software pur, MS-DOS Lornprogramm 

69,- 

2907 


2906 C 

GraphBas PC. Microsoft Oulck Basic 






2522 

C 

2521 IJ 

ERGO 3.0, DOS-ßonutzerobertlächo 

199,- 



toolbox Spezial Nr. 

35,- 

2702 

□ 

2703 D 

DMV-Show-Manager 

199,- 



Kurzbez.: 


238 

□ 

239 







2613 

□ 

2614 : 





MAUSALL Plus 

35,- 

2621 

- 

2622 C 





PC-Splelo-Sampler 

49,- 








Fraktal-Generator 3D, MS-DOS 

69,- 


Pascal 3/4/5 

11 2632 


Turbo C 
Microsoft C 

U 2633 


Top-Speed Turbo 

Modula-2 Basic 

0 2634 J 263 5 


Quick 

Basic 

□ 2636 


2720 
2724 
6031 a 
227 □ 

6001 ü 
6007 
6017 
6019 □ 
6025 L3 


2721 C 
2725 □ 
6032 13 
233 □ 
6002 
6008 : 
6018 ü 
6020 IJ 
6026 ' I 


WlnBosIc 

ColoRIX 

ProfEd 

BCI DlsAsm/lB6, (MS-DOS) 
RSM-Manager 
3D-Draw, Vorsion 1.0 
3D-Drnw Professional 
Navigator 4.6 
Llghtnlng 3D, 1.5 


+ Porto/Verpackung 

(Inland 4, - DM, Ausland 6, - DM) 


299,- 
299,- 
99.- 
199,- 
69, - 
99, - 
199,- 
69,- 
199.- 

_ DM 


1374 Z 

1375 C. 
1377 I I 
1379 □ 
1381 ZI 
1383 
1385 L 
1387 □ 
1389 a 
1401 J 
1295 
1297 L 


1376 □ 
1378 : 
1380 
1382 G 
1384 D 
1386 I I 
1388 i 


1&6 □ 
1298 a 


Populous PC 
Bards Tale II 
Starfllght II 
Indianapolis 500 
Oll Imperium 
Loom 

Zak McKracken 
Monlac Manslon 
Jet Pack 
Digl-Joy 
Memo 

Trademaster 


Gesamtbetrag: 


69.95 

39.95 

49.95 

49.95 

39.95 

69.95 
69,95 
69,95 

169,- 

59,- 

69,- 

49,- 

DM 




AMSTRAD 


NATIONAL 




Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und so wird's gemacht: 

Kreuzen Sie bitte an, In welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
In das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige, 

Bitte beachten Siel 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


Kleinanzeigen-Markt 


Private Anzeigen: Nur DM 5,- je angefangene Zeile 

GeschäfUiche Empfehlungen: DM 8.- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer, 

Bitte veröffentlichen Sie meine Anzeige In der nächsterreichbaren PC Amstrad für 

LI private Zwecke i gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text: (Bitte deutlich in Druckbuchstaben schreibenI) 




□ Dis Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Privat-Anzeige). Chiffre-Gebühr 10,- DM inkl, MwSt. zzgl zum Anzeigenpreis 
In dieser Rubrik: 


□ Biete an □ Suche Tausch □ Stellenmarkt/freie Mitarbeit 
Hardware □ Hardware □ Geschäftsverbindungen 

l Software □ Software □ Verschiedenes 




























































































































































































PC- 

Sonderhefte 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 

Öatum "Unterschritt (bei Mmdeijähngon des gesetzlichen Vertreters) 


PC- 

Software 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgevrähiten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD). 

Datum Unterschrift^bei Minderjährigen des gesetzlichen Vertreters) 



Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Name 


Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 
Datum UnterschrllT(b«i Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und vertiefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft¬ 
ware aus dem DMV-Versand¬ 
service 

• PC-Anwendungen 

• PC-Applikationen 

• PC-Entwicklungssysteme 

Zur Erinnerung: 

Meine PC-Software wurde bestellt am 


3 ■ Chancen nutzen 

Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 
























































CPC-Sonderhefte 



CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wissen so günstig 
wie noch nie erwerben. 

CPC-Sonderheft-Kraftpaket 

Fünf CPC-Sonderhefte 

3, 5, 6, 7, 8 dm 35,-* 


CPC-Sonderheft-Kombipack 

Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX dm 29,-* 


DMV-Sammelordner 

2 Stück dm 15,80* 































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyce eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren, Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter, 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Der Joyce-Bild-Editor - erschließt die Grafikfähigkeiten Ihres 
Joyce: 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Einfache Integration beliebiger Texte in die Bildelemente 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Joyce- 
Drucker 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltext in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur dm 49,-* 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle, des 
Zeichensatzes, 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,- 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 

Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxPlot - die Lösung für Busineß-Grafik auf dem Joyce: 

• Menügesteuerte Erstellung von Balken- und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellten Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlange. Zeilenabstand und Tabulatoren 

• Individuelle Bestimmung von Schriftweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 

Busineß-Paket nur dm 59,- 
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Keine Inhaltsverzeichnisse mehr mühsam einzeln auslesen 1 
Mit GCPM sind Sie über alle laulwerke immer im Bilde. 













Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 

Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 


Joyce-Tabellenkalkulation 

Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung - mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 


Schnell, einfach und sicher - die Joyce-Tabellenkalkulation: 

• Schnelle Dateioperationen durch Benutzung der RAM-Disk 

• Besonders schnelle Berechnungsalgorithmen für die Felderwerte • Übersichtliche 
Menüführung und 
Abfangen von Fehl¬ 
eingaben • Stan¬ 
dardmäßig bis zu 
2574 frei belegbare 
Felder für Berech¬ 
nungen • Am Rand 
eingeblendote For 
mel mit bis zu 68 
möglichen Zeichen 

• Eigene Befehle 
zur Verkürzung der 
Formeln und Expo- 
nentialausdrücke 

• Ausdruck der Er¬ 
gebnisse in bis zu 
drei verschiedenen 
Schriftarten 



Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 

nur DM 59,- 

Joyce-Zeichensatz-Designer 

Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 

Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßreihen auf Bildschirm und Drucker ausge¬ 
ben. 

Zeichensätze selbstgemacht mit dem Joyce-Zeichensatz-Designer: 

• Editieren, Erstellen und Abspeichern von Bildschirm-Zeichensätzen 

• Drucken von vorformatierten ASCII-Texten unter CRM Plus möglich 

• Vier fertig gestaltete Zeichensätze im Lieferumfang enthalten 

• Bonusprogramm zum Einstellen der Joyce-Schnittstelle und Tastatur 

MGX - Funktionen und Meßwerte grafisch auf Bildschirm und Drucker: 

• Arithmetische Grund- und Sonderfunktionen sind darstellbar 

• Gleichzeitige Darstellung mehrerer Funktionen und Meßreihen 

• Druckerausgabe der Ergebnisse im Großformat möglich 

• Neben einer Klammerebene ist eine Memory-Funktion integriert 

Joyce-Programmsammlung 1: 

Zeichensatz-Designer nur dm 49,-* 


Joyce-Datenbank 


Die ideale Datenbank für den Joyce mit minimalem 


Disketten-Speicherbedarf. Dennoch bietet Ihnen die, 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Datenbank: 

• Besonders schnell durch Verwendung der RAM-Disk für das 
Programm 

• Universell durch die Ver 
Wendung von Standard- 
Direktzugriffsdateien 



• Bequem durch Datenirans 
fer von vorhandenen in neuan¬ 
gelegte Dateien • Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert • Komfortabel durch 
Wahl der Sortierkriterien oder 
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Mehrfachsortierung 

• Listen mit automatischer 
Spaltenformatierung und 
Spaltensummen • Automa¬ 
tischer Eintrag neuer Dateien 
in das Disketten-Hauptmenü 

• Speicherung einmal ge¬ 
wählter Druckparameter zur Wiederverwendung 

Joyce-Programmsammlung 5: 

Datenbank (pcw 9512 auf 

Anfrage) nur DM 69,-"' 

Joyce-Dateiverwaltung 

Universelle Erstellung und 
Verwaltung eigener Dateien 

Legen Sie Ihre Daten in eigene Dateien ab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 

SuperDat - Super-Dateiverwaltung für Ihre Daten: 

• Komfortable Eingabe der Daten in eine Eingabemaske 

• Mehrere Arten von Suchfunklionen, z.B. auch Suche mit Jokern 

• Dateien bis zu 8 Feldern und Datensätze bis 255 Zeichen möglich 

SuperTex - verarbeitet Ihre Daten automatisch: 

• Einfügen von ausgewählten Einträgen aus SuperDat-Dateien in Text 

• Umwandlung von bis zu 30 Datensätzen in eine LocoScript-Datei 


Joyce-Pro- 
gramm- 
sammlung 2: 
Dateiverwaltung 
nur DM 49,-* 


SuperCal - der Tachenrechner für den Joyce: 

I Bietet Grundrechenarten, Winkel-, 

Quadrat- und Prozentfunktionen 


• Neben einer Klammerebene ist 
eine Memory-Funktion integriert 

























Joyce-Sonderhefte 

Als Sonderpublikationen der PC Amstrad International bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmalig veröffentlichte 
Beiträge sowie reichlich Tips & Tricks zu Joyce/PCW 8256, 8512 und 9512. 


Aus dem Inhalt: 



Joyce-Sonderheft 3: 


• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketten-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 


Joyce-Sonderheft 4: 


Joyce-Sonderheft 2: 

• Adreßverwaltung 

• Archivprogramm (Video- oder Literaturverwaltung) 

• Pascal-Compiler in Basic 

• Suburbia (Spiel ähnlich Monopoly(R)) 

• Turbo-Pascal-Grafikroutinen ohne GSX 

• Komfortable Balkengrafik 

• Joyce-Zweitlaufwerk selbst anschließen 

• 3D-Plotter 

• Etikettendruckprogramm 

• Ordnung auf der Diskette mit LocoScript 

• dBase-Handbuch selbst ausdrucken 

• LOGO-Funktionenzeichner 


Jeweils ein Sonderheft + die DATABOX dm 29,-* 


Strickmustergenerator 
Wordstar-Verbesserungen 
Bundesligasimulation 
Super-Reaktionsspiel Filemanager 
Pulldown-Menüs 
Astrologieprogramm 
Diskettenmonitor 
Hauptstädte raten in LOGO 
Statuszeile für dBase und Basic 
Hardcopy-Routine für 24-Nadler 
LOGO macht Schachteln 
dBase-Literaturverwaltung 

Universelles Werkzeug zur Veränderung von dBase-Dateien 
Joyce-Sonderheft-Kombipack 

















DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont Ihres 
Computers weit über LocoSript hinausgeht, finden jetzt Ihre Bestätigung: 


Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis, 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce - 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 

Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger, 
die sich erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaltung. 


Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmierhilfen, Tips und Tricks: 
Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen 

OUTs und POKEs unter Basic 
t Hardware: 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansions-Port 

Sprachsynthesizer 

Joyce - mehr als ein Textsystem 

325 Seiten mit farbigen Abbildungen, Leinen- 
Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 

Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Siebert zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScript auf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 



JOYCE - mehr als ein Textsystem 



Anwendungen und Problemlösungen 


DiMK 


itap- and 

•nverlM 


Auf der Diskette erhalten Sie über 50 Datei¬ 
en mit Schablonen, Brief- und Postkarten- 
Layouts, Serien-Rundschreiben. Etiketten, 
Formularen. Schriften, Bildschir¬ 
minstallationen und vieles mehr. 


Aus dem Inhalt: 


• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 


Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 
Leinen-Hardcover, 
Inklusive 3-Zoll - 
Diskette 

jetzt nur DM 49,- ' 






























Wo ist der nächste Bahnhof...? 

Das sollten Sie sich rechtzeitig fragen, denn das nächste Heft Ihrer PC Amstrad werden Sie nicht mehr im Supermarkt oder am Kiosk 
an der Ecke bekommen können. 



Warum? 


Von den vielen Exemplaren der PC Amstrad, die alle zwei Monate gedruckt werden, gehen weit über die Hälfte wieder zurück und 
wandern schließlich in den Reißwolf. Das ist nicht nur sehr teuer, sondern auch schlecht für die Umwelt. 

Das verschworene Grüppchen der CPC- und PCW-Besitzer schrumpft. Leider. Es sind die Aktivsten und Engagiertesten, die aus ih¬ 
ren 8-Bit-Cömputern das Letzte herausholen. Aber es werden immer weniger. 

Die PC Amstrad hat diese Computer von der ersten Stunde an unterstützt und ihre User mit Informationen versorgt. Und zwar schon 
mehr als 60 Hefte lang, seit 1985. Ein Geschäft läßt sich mit der Schwindenden 8-Bit-Userschaft heutzutage nicht mehr machen. 
Dennoch wollen wir unsere treuen Leser keinesfalls im Stich lassen. 


Darum: 


Jetzt müssen wir CPCler und PCWler 


Zusammenhalten! 


Der bisherige weitgestreute Vertrieb läßt sich nicht länger auf¬ 
rechterhalten. Weil wir aber weiter für Sie da sein wollen, gibt 
es die PC Amstrad vom nächsten Heft ab nur noch an Bahnhofs¬ 
kiosken - und natürlich im Abonnement. 

Wenn Sie sich entschließen wollen, ein Abo zu zeichnen, benut¬ 
zen Sie bitte die Bestellkarte. Sie finden sie in der Heftmitte. 
Ein Abo hilft übrigens nicht nur Ihnen — Sie ersparen sich die 
lange Fragerei nach dem Weg zum Bahnhof - , sondern auch 
uns. Je mehr Abonnenten wir nämlich haben, desto leichter wird 
für uns die weitere Arbeit. 

Alles Gute 

Ihre PC-Amstrad-Redaktion 
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DATABOX 


Und 3 -2oll-Oiskette. r ^ ° PCs als ^ssette 


415 ’- 


vjviV'y 


O^ev 


Inland: 


Ausland: 


Einzelpreis 

14,- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

18,- DM 

Endpreis 

20,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich. 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege /M«L 

■E&MVMhf 


Das ist die Software zur PC International 
jeden Monat neu 

DATABOX: 

- Mehr als der übliche Software-Service 

- Bringt ergänzend sämtliche Listings der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf 3-Zoll-Diskette 

- Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

- Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

- Erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes 

- Der Datenträger zur PC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 


Einzelbezugspreise für DATABOX: 

3-Zoll-Diskette 



Inland: 


Ausland: 



Einzelpreis 

24,- DM 

Einzelpreis 

24,- DM 


zzgl. Versand kosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 


Endpreis 

28,- DM 

Endpreis 

30,- DM 


Kassette 
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Spiele, Spiele, Spiele 

Unsere Software-Review läuft 
wieder 

Damit die Spieler unter unseren Lesern nicht denken, sie kämen zu kurz, 
haben wir sie wieder aufgemacht: die Software-Review über aktuelle Spiele 
zum CPC. 


wird umgeschaltet, wenn der Cursor 
den Feldrand erreicht. Die Landschaft 
besteht aus Städten (die im Laufe des 
Spiels meist Ruinen werden), Wäldern, 
Feldern, Flüssen, Straßen, Bergen und 
Seen. Je nach Untergrund lassen sich 
die Einheiten leichter oder schwerer be¬ 
wegen. Wälder und Städte bieten auch 
eine bessere Deckung als offenes Ge¬ 
lände. 

Dem Spieler steht eine ganze Auswahl 
an Kampfgeräten zur Verfügung, vom 
Fußsoldaten bis zum Superhelikopter. 
Diese haben jeweils unterschiedlich 
starke Panzerungen, Geländegängigkei¬ 
ten, Feuerstärken und Reichweiten. Das 
Spiel kann von zwei menschlichen 
Spielern gegeneinander gespielt wer¬ 
den, auf Wunsch übernimmt aber auch 
der Computer die Rolle des Gegners, 
wobei gewählt werden kann, welche 
Partei vom Computer gesteuert wird. 

Der Spielablauf erfolgt immer nach fol¬ 
gendem Schema: League zieht, was so 
lange möglich ist, bis jede Brigade eine 
Maximalzahl von Feldern vorgerückt 
ist. Der Zug kann aber auch vorher be¬ 
endet werden. Dann kommen Kampf¬ 
handlungen, in denen beide Seiten feu¬ 
ern können. Danach zieht Combine und 
es folgt wieder eine Kampfrunde. Je 
nach Kampfkraft (und Glück) der An¬ 
greifer werden Teile der angegriffenen 
Brigade zerstört. 


Von nun an geht es wieder weiter mit 
unseren regelmäßigen Testberichten 
über Spiele. Leider war es in der letzten 
Zeit etwas problematisch, an interessan¬ 
te Spiele heranzukommen - viele Händ¬ 
ler sattelten vom CPC gänzlich zum PC 
um. Die Bezugsquellen sind nun geklärt 
- es kann losgehen: 

• FIREZONE 

Schon beim Öffnen der gut gestalteten 
Verpackung fällt auf, daß sich darin, 
nicht wie bei den meisten Spielen, eine 
Diskette und ein kleiner, “Anleitung” 
genannter Zettel befindet. Vielmehr ist 
ein vorbildlich gemachtes Handbuch 
enthalten. 

Es ist zwar in englischer Sprache ver¬ 
faßt, zum Spielen selbst sind aber fast 
keine Englischkenntnisse erforderlich, 
so daß man es sich notfalls auch von 
Bekannten übersetzen lassen kann. 

Außerdem findet man ein gesondertes 
Blatt, das alle benötigten Tasten in einer 
Übersicht extra darstellt und ein Raster, 
das dem Spieler hilft, wenn er eigene 
Szenarios entwirft (dazu später mehr). 
Erfahrene Strategiespieler können an¬ 


fangen, ohne sich durch alle 30 Seiten 
der Anleitung arbeiten zu müssen. Am 
Buchanfang sind die wichtigsten Funk¬ 
tionen mit Verweisen auf andere Hand¬ 
buchstellen, die mehr Informationen zu 
einem bestimmten Stichwort enthalten, 
zusammengefaßt. 

Im Jahre 2160... 

Das Spiel findet im Jahre 2160 statt. 
Daß es sich dabei schon um das 22. 
Jahrhundert handelt, scheint die Auto¬ 
ren nicht sonderlich gestört zu haben, 
als sie sich den Untertitel game of21st 
Century warfare ein fallen ließen. Dem¬ 
gemäß sehen die Machtblöcke anders 
aus als heute. Der Ostblock ist zerfallen, 
dafür hat Europa, das sich inzwischen 
European League nennt, an Macht ge¬ 
wonnen. Es ist aber mit Amerika (füh¬ 
rend im Pacific Combine) zerstritten, 
und die beiden kämpfen nun um die 
Vorherrschaft. 

Jedes Schlachtfeld ist 21 mal 21 Sechs¬ 
ecke groß und wird in Draufsicht darge¬ 
stellt. Zwischen den einzelnen Feldern 


Zug um Zug muß man sich 
vorwärtskämpfen 

Das Spiel endet, wenn eine Seite völlig 
zerstört ist oder sich aus dem Kriegsge¬ 
schehen zurückzieht. Danach folgt eine 
Wertung beider Seiten und eine Anzeige 
der erlittenen Verluste. Während des 
Spiels kann der Spielstand abgespei¬ 
chert werden. 

Insgesamt stehen auf Kassette drei und 
auf Diskette neun verschiedene Szena¬ 
rios zur Verfügung, die sich in Mission 
und Ausgangslage recht stark unter¬ 
scheiden. Während beispielsweise in 
der ersten Mission beide Seiten gleich 
ausgestattet sind, hat im zweiten Szena¬ 
rio ein Spieler nur Verteidigungsaufga¬ 
ben bis sein Nachschub eintrifft; der an¬ 
dere muß versuchen, möglichst vorher 
die Kommandozentrale des Gegners zu 
zerstören. Außerdem gibt es einen Sze¬ 
nario-Designer, mit dem neue Szenarios 
erstellt oder bestehende verändert wer¬ 
den können, so daß dauerhaft Abwechs¬ 
lung und Herausforderung garantiert 
sind. Eine weitere Option ist, die Züge 
verdeckt auszuführen. Man sieht dann 


70 PC 6/7’91 



















Software-Review—i 


nicht, wohin der Computer zieht, eben¬ 
so wie der Computergegner nicht 
"weiß", wo die Armeen des Spielers ste¬ 
hen. Erst, wenn ein Angreifer nahe her¬ 
angekommen ist, wird für diesen die 
Truppe des Gegners sichtbar. Hier bie¬ 
ten Städte und Wälder eine gute Dek- 
kung. Es kann sein, daß ein Panzer 
ahnungslos anrollt und sich direkt 
einem Helikopter gegenüber sieht. Die¬ 
se Variante des Spiels ist voller Überra¬ 
schungen. Wenn man auf diese Weise zu 
zweit spielt, muß eben ein Spieler weg¬ 
schauen, während der andere zieht. Der 
Computer zeigt dann nur die eigenen 
Figuren an, bis der Gegner in Sichtweite 
ist. 


Bild 1: 
FIREZONE - 

Kontinente bekämpfen 
sich 



Spannende, abwechslungsreiche 
und gelungene Unterhaltung 

Grafisch ist FIREZONE bestenfalls 
zweckmäßig, der Lautsprecher röchelt 
ab und zu vor sich hin, und eine Joy- 
sticksteuerung wäre schön gewesen. 
Aber all dies kann den positiven Ein¬ 
druck, den die spielerische Qualität hin¬ 
terläßt, nicht zunichte machen. Durch 
die verschiedenen Kampfgeräte und 
Bodentypen muß man wirklich strate¬ 
gisch Vorgehen, um eine Chance zu ha¬ 
ben, und die verschiedenen Missionen 
garantieren auch dauerhafte Motivation. 
FIREZONE kann also allen Freunden 
von Strategiespielen wärmstens emp¬ 
fohlen werden. 


Info 

Hersteller: PSS 
Steuerung: Tastatur 
Voraussetzungen: für alle CPCs 


• SIM CITY 

So kann es passieren: Direkt vor der 
Haustüre verläuft bereits die Autobahn, 
und hinter dem Grundstück will die 
Stadt jetzt auch noch ein Industriegebiet 
ansiedeln. Bürgermeister müßte man 
sein, dann hätte dieser Unfug ein Ende! 

Nachdem inzwischen fast jedes Fortbe¬ 
wegungsmittel als Simulator vorliegt, 
ist SIM CITY die erste Städtebausimu¬ 
lation. Der Spieler schlüpft in die Rolle 
des Stadtplaners und Bürgermeisters 
und beginnt, mit einem Grundkapital 
ausgestattet, den Bau seiner Traumstadt. 

Let’s build a city 


Wie aus der schlichten Wiese eine blü¬ 
hende Stadt wird, ist in der vorbildli¬ 
chen englischen Anleitung erklärt. 
Überhaupt sollte man bei diesem Spiel 


Englisch wenigstens in den Grundzügen 
beherrschen, denn das Programm gibt 
immer wieder Meldungen oder Statisti¬ 
ken in Englisch aus. Die Bedienung ist 
sehr einfach: Fast alle wichtigen Funk¬ 
tionen können über Fenster oder Icons 
angewählt werden. 

Man kann Häuser und Straßen, Polizei¬ 
stationen, Parks, Industriegebiete, Han¬ 
delszentren und vieles mehr bauen. Da¬ 
zu ist natürlich Geld erforderlich, das in 
Form von Steuern wieder eingenommen 
werden sollte. Mit derZeit tauchen Pro¬ 
bleme auf: Ist keine Industrie vorhan¬ 
den, nimmt die Arbeitslosigkeit über¬ 
hand; zuviel Industrie bringt aber die 
Gefahr von Umweltverschmutzung mit 
sich, was den Wert der Wohnungen wie¬ 
der senkt. Billige Wohnungen bringen 
weniger Steuern, sind aber nötig, um die 
Industrie mit Arbeitskräften zu versor¬ 
gen. Diese und eine Fülle anderer Fak¬ 
toren sind bei der Stadtplanung zu be¬ 
rücksichtigen. Jederzeit kann abgerufen 
werden, welches die drängendsten Pro¬ 
bleme der Stadt und ob die Bürger mit 
dem Bürgermeister zufrieden sind. Wer 
mutig genug ist, kann auch Umweltka¬ 


tastrophen heraufbeschwören und so te¬ 
sten, wie gut die Stadt gewappnet ist. 
Vorher sollte man den Spielstand jedoch 
tunlichst abspeichern. Das Spiel ist so 
komplex, daß es in diesem Rahmen gar 
nicht möglich ist. alle Funktionen und 
Faktoren aufzuzählen. Landschaft und 
Energieversorgung spielen eine Rolle, 
Verbrechensralen und Verkehrsproble¬ 
me. Und die vom Computer simulierten 
Bürger reagieren sehr schnell, wenn ih¬ 
nen etwas nicht paßt. 

SIM CITY: 

Originell und toll gemacht 

Die Simulationsgeschwindigkeit kann 
jederzeit verstellt werden, wobei in der 
schnellsten Stufe die Monate wie im 
Flug vergehen. Die Stadt wird von oben 
gezeigt. Dabei ist nur ein Teil des Stadl¬ 
plans zu sehen, es kann aber problemlos 
hin- und hergescrollt werden. 

Die Übersichtskarten zeigen die ganze 
Landschaft, Problembereiche sind farb¬ 
lich abgehoben. Für das Auge gibt Sim 
City einiges her, obwohl viele Informa¬ 


ß/W 2: 

SIM CITY - hatten Sie 
Ihre eigene Stadt 
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tionen auf engen Raum gepackt sind, 
zudem ist eine große Liebe zum Detail 
festzustellen: Auf den Straßen sieht 
man, wo Staus sind, Züge fahren hin 
und her, in dünn besiedelten Gebieten 
werden Einzelhäuserbevorzugt, wäh¬ 
rend in Ballungszentren Hochhäuser 
entstehen. Aus dem Lautsprecher drin¬ 
gen nur ein paar Piepstöne (mit Ausnah¬ 
me der Naturkatastrophen), was aber 
nicht weiter stört. 

Auch sonst gibt es an der Programmie¬ 
rung nichts zu bemängeln, zumal das 
Programm trotz seiner Komplexität 
nicht einmal nachlädt. Obwohl es kein 
Ziel gibt (außer herumzuexperimentie- 
ren und Traumdörfer oder Citys zu ent¬ 
werfen, mit denen die Bürger zufrieden 
sind), macht das Spiel unheimlich viel 
Spaß. Mit Sicherheit eines der ausgefal¬ 
lensten und gelungensten Programme 
der letzten Zeit! 


Info 

Hersteller: Infogames 
Steuerung: Tastatur oder 
Joystick und Tastatur 
Voraussetzungen: CPC 6128 


Bild 3: 

LA FORMULE - der 
Professor muß wieder 
wachsen - helfen 
Sie ihm 

• La Form ule (die Formel) 

Professor Nitro, der jahrelang an einem 
Elixir gearbeitet hat, mit dem man Zel¬ 
len zum Schrumpfen bringt, hat ein klei¬ 
nes Problem: Nachdem er sein Gebräu 
mit einem Glas Wasser verwechselt und 
getrunken hat, findet er sich plötzlich, 
etwa so groß wie eine Streichholz¬ 
schachtel. in seinem Müllkorb wieder. 
Weil es sich in dieser Größe jedoch et¬ 
was schlecht lebt, versucht er, etwas da¬ 
gegen zu unternehmen. Verstreut in sei¬ 
nem Labor liegen Teile einer Formel, 
die ihn wieder wachsen lassen. 

Diese muß er nun finden, doch stellt er 
fest, daß Dosen, Kaugummis und viele 
Alltagsgegenstände zu schier unüber¬ 
windlichen Hindernissen werden. Pro¬ 
fessor Nitro kann laufen, hüpfen und 
Leitern hochklettem (Wo die wohl her- 
kommen?). Normalerweise fällt er nach 
unten, wenn er nichts findet, an dem er 
sich festhalten kann. Auf Cola-Dosen 
läßt es sich sogar stehen, doch wehe, 
wenn der Professor durch die Öffnung 
fällt! Herumliegende Gegenstände kön¬ 
nen eingesammelt werden und haben 
verschiedene Effekte, so schützt der Re¬ 



Bild 4: 

DAS REICH - nichts 
für aktive Spieler 


genschirm beispielsweise gegen herab¬ 
tropfende Säuren. 

Zusätzlich erschwert wird die Aufgabe 
durch den gesunden Appetit des Profes¬ 
sors, der sich beschwert, wenn er nichts 
zu essen oder zu trinken bekommt so¬ 
wie durch ein Zeitlimit. Wenn alle Teile 
der Formel aufgesammelt sind, ist das 
Spiel noch lange nicht zu Ende: Jetzt 
müssen die einzelnen Zutaten gefunden 
und richtig zusammengemischt werden. 

Jump & Run einmal anders 

Zum Test lag leider nur eine französi¬ 
sche Anleitung vor, die zwar etwas 
mickrig aussieht, aber über alles, was 
man wissen muß, Auskunft gibt. Da 
man im Titelbild zwischen verschiede¬ 
nen Sprachen wählen kann, ist davon 
auszugehen, daß das Spiel auch mit 
deutscher Anleitung erhältlich ist. 
Wählt man eine andere Sprache, ändert 
sich der Titel (deutsch: Die Formel, eng¬ 
lisch: The Amazing Shrinking Man). 

Vom Grundprinzip her ein 
Jump-&-Run-Game spielt sich La For¬ 
mule doch anders als die meisten Vertre¬ 
ter dieses Genres. Die Haupthindernisse 
sind keine beweglichen Feinde, sondern 
herumliegende Gegenstände, denen 
auszuweichen gar nicht so einfach ist. 
Frustrierend auch, wenn man ganz nach 
unten fällt und sich wieder hocharbeiten 
muß. Das Spielfeld ist ziemlich groß, so 
daß immer wieder in alle Richtungen 
gescrollt werden muß. 

Resümee: Nicht schlecht, aber ... 


Die Sprites und Hintergrundgrafiken 
sind nicht besonders schön, dafür gibt es 
einige kleine Gags am Rande. Die Hin¬ 
tergrundmusik macht einen schnell ner¬ 
vös, kann aber abgeschaltet werden. 

Schon das Titelbild der Verpackung 
sieht chaotisch und nach Hektik aus. 
Weil der Spielablauf so schnell ist (der 
Professor bewegt sich mit einer un¬ 
glaublichen Geschwindigkeit über den 
Bildschirm), artet das Spiel tatsächlich 
in eine gewisse Hektik aus, die in der 
Hauptsache dann unterbrochen wird, 
wenn Nitro wieder einmal in eine Dose 
gefallen oder eine Säure-Pfütze getreten 
ist und sich erst wieder aulfappeln muß. 
Besonders lustig wird es, wenn er auf 
eine Sprungfeder tritt und eine Weile 
von einer Feder zur anderen hüpft, ohne 
etwas dagegen machen zu können. 
Dann muß der Spieler den richtigen Mo¬ 
ment abwarten und blitzschnell reagie¬ 
ren. 
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Sicherlich ist La Formula kein schlech¬ 
tes Programm, und man kann damit die 
eine oder andere halbe Stunde verbrin¬ 
gen, doch das gewisse Etwas, das den 
Spieler dauerhaft an den Bildschirm fes¬ 
selt, fehlt leider. 


Info 

Hersteller: Infogames 
Steuerung: Joystick oder Tastatur 
Voraussetzungen: für alle CPCs 


t DAS REICH 

Bei diesem Programm handelt es sich 
um ein Schau-Spiel zur deutschen Ge¬ 
schichte. Wenn man die Anleitung liest, 
wird man über den Zustand Deutsch¬ 
lands im 19. Jahrhundert informiert. 
Überhaupt wurde großer Wert auf den 
historischen Hintergrund gelegt: Auf 
der Verpackung finden sich außer einem 
Bismarckbildnis auch Zitate eben dieses 
Reichskanzlers sowie Kaiser Wilhelms 
II. 1871 wird das deutsche Reich ge¬ 
gründet. der Traum der deutschen Na¬ 
tionalbewegung erfüllt sich. Diese 
Reichsgründung ist im Spiel geschei¬ 
tert, und so schlüpft der Spieler in die 
Rolle eines Landesfürsten, der sich auf¬ 
macht, Deutschland zu einigen, indem 
er es ganz unter seine Kontrolle bringt. 

Spielerisch präsentiert sich DAS 
REICH dann als Eroberungsspiel. Der 
Spieler hat nur die Möglichkeit abzu¬ 
warten. anzugreifen oder Truppen zu 
verschieben. Hat er eine dieser Aktio¬ 
nen ausgeführt, kommt wieder der 
Computer an die Reihe. 

Da Deutschland zu dieser Zeit aus vie¬ 
len Kleinstaaten besteht, nehmen auch 
am Computerspiel über zehn Regierun¬ 
gen teil. Eine davon ist der Spieler, alle 
anderen werden vom CPC übernom¬ 
men. Leider fehlt eine Option, die meh¬ 
reren Spielern eine Teilnahme ermög¬ 
licht, obwohl diese sehr einfach zu rea¬ 
lisieren wäre. 

Welches Land am Zug ist, wird mittels 
Zufall entschieden. So kann es sein, daß 
der Spieler sehr lange warten muß, bis 
er wieder an die Reihe kommt. Hilfssei¬ 
te, historische Karte und Informationen 
zu den einzelnen Ländern können eben¬ 
falls nur abgerufen werden, wenn man 
am Zug ist. 

Das Recht des Stärkeren 

Das strategische Element ist reichlich 
dünn. Jedes Land hat eine bestimmte 
militärische Stärke, die sich verringert, 
wenn es viele Kriege führt, oder vergrö¬ 
ßert, wenn es dies nicht tut. Im Kampf 


werden jeweils die Stärken der beiden 
Kontrahenten mit einer Zufallszahl 
multipliziert und miteinander vergli¬ 
chen. In der Regel gewinnt aber immer 
das Land, das auch die größere Stärke 
aufweist. Wenn ein Land ein anderes er¬ 
obert hat, kann es in künftigen Kriegen 
auch auf dessen Kampfkraft zurückgrei¬ 
fen. Hier treten dann jedoch einige 
Merkwürdigkeiten auf: Das eroberte 
Land ist durch den Kampf nicht über¬ 
mäßig geschwächt und kämpft in der 
nächsten Runde mit fast unverminderter 
Stärke mit, allerdings auf einer anderen 
Seite. 

Unterliegt der Angreifer, wird sein Land 
gleich vollständig vom Verteidiger ein¬ 
verleibt. Auf diese Weise kann es pas¬ 
sieren, daß der Spieler sein letztes Land 
verliert. Damit ist das Spiel aber keines¬ 
wegs beendet. Die Anleitung fordert 
den Spieler dazu auf, zu warten, bis ihn 
eine Revolution irgendwo wieder an die 
Macht bringt. Überhaupt finden ab und 
zu Revolutionen statt, so daß sich die 
Lage zwischen zwei Zügen des Spielers 
grundlegend ändern kann, ohne daß er 
die Möglichkeit hatte, einzugreifen. 

Lobend zu erwähnen wäre die histori¬ 
sche Karte, die detailliert die damaligen 
Verhältnisse zeigt, die Möglichkeit, das 
gleiche Spiel vor einem anderen Hinter¬ 
grund (und zwar Österreich) zu spielen, 
die verbesserte Version für 128-kByte- 
Geräte und die Wahlmöglichkeit zwi¬ 
schen Färb- und Grünmonitorversion. 
Für Strategiespieler, die kein Englisch 
können, gibt es ohnehin nicht allzuviele 
Produkte, die in Frage kommen. 

Zu wenig Handlungs- 
möglichkeiten 

Die grafische Darstellung der Landkar¬ 
ten ist durchaus gelungen; eine Anzeige 


der Stärke der einzelnen Länder, ohne 
diese vorher erst lange abfragen zu müs¬ 
sen, wäre allerdings dem Spielfluß zu¬ 
träglich. Die Sound-Effekte wird man 
nicht allzusehr vermissen, sind sie doch 
bei einem Strategiespiel zweitrangig 
(dafür gibt’s eine Melodie, wenn man 
gewonnen hat). Ein echtes Manko ist 
aber, daß der Spieler den größten Teil als 
Zuschauer und nicht als Akteur ver¬ 
bringt. Wer vom geschichtlichen Rah¬ 
men genügend fasziniert ist, kann dies 
vielleicht verschmerzen. 

Spielerisch ist jedoch für alle, denen es 
in der Hauptsache um das Spiel selbst 
und nicht um dessen Hintergrund geht, 
zu wenig geboten. Es gibt Strategiespie¬ 
le, die wesentlich mehr Taktik und 
Handlungsmöglichkeiten bei weniger 
langatmigen Wartezeiten bieten. 


Info 

Hersteller: NEW's Software 
Steuerung: Tastatur oder 
Joystick und Tastatur 
Voraussetzungen: für alle CPCs 


• EVENING STAR / SOUTHERN 
BELLE 

Welche Jungen sind nicht von elektri¬ 
schen Modelleisenbahnen fasziniert? 
Besondere Renner waren schon immer 
die Dampflokomotiven, da man ja kaum 
noch Gelegenheit hat. mit einer mitzu¬ 
fahren. Das ändert sich jetzt; EVENING 
STAR bietet nicht nur die Möglichkeit, 
in solch einem Zug mitzufahren, son¬ 
dern der Spieler kann sich sogar als 
Zugführer betätigen und volle Kontrolle 
über die Lokomotive übernehmen: vom 
Schüren des Feuers bis zum Kontrollie¬ 
ren des Wasserstandes und Betätigen 
der Dampfpfeife. 

Der Bildschirm zeigt den Blick aus dem 
mit allen wichtigen Instrumenten ausge¬ 
statteten Führerstand. Strecken. Tun- 
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nels, Bahnstationen und Signale sind in 
Vektorgrafik dargestellt, ln den unter¬ 
schiedlichen Spielstufen kann einge¬ 
stellt werden, wieviel Arbeit der Com¬ 
puter dem Spieler abnimmt. Zum Üben 
ist es empfehlenswert, nur Dampfventil, 
Regler und Bremse zu übernehmen und 
einfache Strecken zu fahren. 

Erfahrenere Spieler können Strecken 
mit Bauarbeiten, Steigungen und Ge¬ 
schwindigkeitsbegrenzungen wählen 
und alles selbst steuern. Wem das als 
Herausforderung nicht reicht, kann ver¬ 
suchen, einen neuen Streckenrekord 
aufzustellen, obwohl schon das Einhal¬ 
ten des regulärenFahrplans nicht ganz 
einfach ist. Eine komplette Fahrt dauert 
etwa zwei Stunden, deshalb ist die Mög¬ 
lichkeit, den Spielstand jederzeit abzu¬ 
speichern, recht nützlich. 

Überhaupt wurde Wen auf solche spie¬ 
lerischen Feinheiten gelegt: Der Fahr¬ 
plan ist jederzeit abrufbar, die gröbsten 
Fehler, die man bisher gemacht hat, 
können während der Fahrt angezeigt 
werden, der Zeitablauf kann beschleu¬ 
nigt werden, um langatmige Strecken zu 
verkürzen, und nach jeder Fahrt wird ei¬ 
ne Wertung für Sicherheit, Pünktlich¬ 
keit und Sparsamkeit angezeigt. Nach 
einem fatalen Fehler, wie etwa dem Ent¬ 
gleisen des Zugs, kann weitergespielt 
werden, wobei sich dann dieWertung 
für Sicherheit auf Null reduziert. 

Slow and dirty ... 
ist das Spiel nicht 

S&D hieß die Eisenbahngesellschaft, 
welche die Linie der EVENINGSTAR 
betrieb, was ihr bald den Beinamen 
“slow and dirty”, also langsam und 
dreckig, einbrachte. Das kann man der 
Anleitung entnehmen, die sich ausführ¬ 
lich mit der Geschichte dieser Dampf¬ 


lok befaßt. Auch sonst ist das Handbuch 
ausführlich und beschreibt außer den 
Funktionen des Programms auch noch, 
wie eine Dampflokomotive funktio¬ 
niert. Leider ist es unübersichtlich auf¬ 
gebaut, so daß man viel hin- und her- 
blättem muß. 

Bei der deutschen Übersetzung sind au¬ 
ßerdem einige Tabellen etwas ver¬ 
rutscht. Dennoch läßt sich gut mit der 
Anleitung auskommen. Praktisch als 
Bonus befindet sich auf der zweiten Sei¬ 
te der Kassette oder Diskette noch ein 
zweiter Dampflokomotivensimulator, 
und zwar SOUTHERN BELLE, das 
schon 1987 von Hewson veröffentlicht 
wurde. Beide Programme sind weitge¬ 
hend identisch, es handelt sich nur um¬ 
verschiedene Loks und verschiedene 
Strecken. Tatsächlich wurde auch EVE- 
NING STAR schon 1987 programmiert, 
aber erst vor kurzem veröffentlicht, 
wohl weil man bei Hewson der Mei¬ 
nung war, daß zwei derart ähnliche Pro¬ 
gramme nicht gleichzeitig vermarktet 
werden sollten. Auf jeden Fall ist es aber 
ein netter Service, beideProgramme zu¬ 
sammen zu bekommen und nur eines zu 
bezahlen. 

Ein gefundenes Fressen für 
Simulator-Fans 


Die Aufmachung, also Grafik und 
Soundeffekte, ist zweckmäßig. Auf den 
ersten Blick scheint wenig zu passieren, 
doch wer spielt, stellt bald fest, daß im¬ 
mer etwas zu tun ist. Reine Action-Spie¬ 
ler werden also EVEN ING STAR als 
langweilig empfinden, doch wer Simu¬ 
lationen mag, wird von dem Programm 
angetan sein. 


Info 

Hersteller: Hewson Consultanls 
Steuerung: Tastatur 
Voraussetzungen: für alle CFCs 


• RICK DANGEROUS 2 
Fair ist das ja nicht. Gerade hat Rick 
Dangerous den bösen Fat Man daran ge¬ 
hindert, die Weltherrschaft zu ergreifen. 
Doch kaum, daß er in Begleitung einer 
hübschen Blondine ein paar gemütliche 
Stunden in einem Nachtlokal verbringt, 
erreicht ihn die Eilbotschaft, daß Fat 
Man sich befreien konnte und nun sich 
mit einer außerirdischen Rasse verbün¬ 
det hat. Auf diese Weise versucht der 
Verbrecher erneut, die Welt unter seine 
Kontrolle zu bringen. Rick bittet seine 
Begleiterin kurz entschlossen zu wal¬ 
ten. bis er wieder zurück ist. Und da ist 
er auch schon weg und stürmt zudem 
über dem Hydepark schwebenden Ufo 
der Außerirdischen. 

Diese Hintergrundgeschichte, die sich 
wie eine Mischung aus James Bond und 
Flash Gordon liest, wird dem Spieler in 
einem recht nett gemachten englischen 
Comic nähergebracht. Der Spielablauf 
und alle Funktionen des Programms 
werden auf einem gesonderten Zettel in 
Deutsch erklärt. Die Verpackung selbst 
ist ansprechend, wenn auch leicht zu 
ramponieren. 

Roboter, Pinguine und 
Laserblitze 

Spielerisch gesehen, präsentiert sich 
RICK DANGEROUS 2 wie schon sein 
Vorgänger als Plattformspiel. Rick kann 
laufen, springen, sich ducken, schlagen, 
Laserblitze feuern und Bomben depo¬ 
nieren. Anders als im ersten Teil können 
diese diesmal nicht nur abgesetzt, son¬ 
dern auch weggeschoben werden. 

Insgesamt gibt es fünf Levels, von de¬ 
nen vier nach dem Laden direkt ange¬ 
wählt werden können. In das fünfte 
kommt man nur dann, wenn alle ande¬ 
ren am Stück durchgespielt wurden. Je¬ 
der Level besteht aus einer Serie von 
einzelnen Bildern, zwischen denen hin- 
und hergescrollt wird, kurz bevor der 
Spieler den Bildschinnrand erreicht hat. 
Die einzelnen Levels sind voll von be¬ 
weglichen Feinden (Roboter, Eingebo¬ 
rene und aufziehbare Spielzeugpingu¬ 
ine) und statischen Fallen aller Art, wie 
etwa herabbrechenden Ästen im 
Dschungel-Level oder Schneeballkano¬ 
nen im Eis-Level. An jeder Ecke lauern 
neue Überraschungen, die jedoch meist 
lebensbedrohend für unseren Helden 
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sind. Für die einzelnen Fallen muß man 
sich als Spieler immer wieder neue Tak¬ 
tiken einfallen lassen, um sie zu über¬ 
winden. Manchmal reicht ein gezielter 
Schuß aus der Strahlenkanone, um ei¬ 
nen Gegner auszuschalten. Deren Mu¬ 
nition ist begrenzt und kann nur selten 
aufgefüllt werden. An anderen Stellen 
ist eine gute Reaktion erforderlich. 

Einige Fallen lassen sich auch abschal¬ 
ten - wenn man den richtigen Knopf da¬ 
zu findet! Ab und zu gibt es natürlich 
auch Nützliches: Trampoline helfen, 
höher zu springen, und mit dem 
Antischwerkraft-Fahrrad kann man so¬ 
gar schweben. Jedesmal, wenn man 
meint, endlich jede Art von Fiesheiten 
zu kennen, taucht garantiert eine neue 
auf. So geht man auf eine Entdeckungs¬ 
reise, bei der man ab und zu auch über¬ 
legen muß. Dadurch ist spielerisch mehr 
geboten als bei einem reinen Action- 
Spiel. 


Ein spannendes Action-Spiel 


Technisch ist RICK DANGEROUS 2 
fast perfekt. Schön gemalte Hinter¬ 
grundbilder, die genauso abwechs¬ 
lungsreich sind wie die witzigen Feinde, 
erfreuen das Auge. Die Bildschirmfotos 
auf der Verpackung zeigen die Atari-ST- 
Fotos, die sich von der CPC-Fassung er¬ 
freulicherweise nicht unterscheiden. 
Der Sound wurde gegenüber dem ersten 
Abenteuer von Rick Dangerous kräftig 
verbessert: Die knackigen Effekte sind 
weiterhin zu hören, während des Menüs 
erklingt eine tolle Musik, und zu Beginn 
jedes Levels bekommt der Spieler ein 
paar passende Takte zur Einstimmung 
serviert. 

Bei einem Spiel nützen die besten Bil¬ 
der und schönsten Melodien nichts, 
wenn das Spielgeschehen nicht stimmt. 
Auch hier trumpft RICK DANGE¬ 
ROUS 2 auf. Plattformspiele gibt es vie¬ 
le, doch Rick schlägt sie alle. Der 
Schwierigkeitsgrad ist gerade richtig 
(die Auswahlmöglichkeit der Levels 
trägt viel dazu bei). Vor allem aber ist 
das Spiel abwechslungsreich. Es hat so 
viele Überraschungen parat, daß man 
sich fast nicht vorstellen kann, es ir¬ 
gendwann langweilig zu finden. 

Wer RICK DANGEROUS 1 schon 
kennt, hat auf die Fortsetzung, die vor 
allem in den spielerischen Details noch 
mehr glänzt, sicher schon sehnsüchtig 
gewartet. Aber auch für alle anderen 
gilt: unbedingt zugreifen! 


Bild 7: 
BACK TO THE 
FUTUREII - Das 
Spiel zum Film 
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Info 

Hersteller: Micro Style 
Steuerung: Joystick oder Tastatur 
Voraussetzung: für alle CPCs 


• Back to the Future, Part II 

Und wieder eines mehr: das Spiel zum 
Film. So schlüpft man als Spieler in die 
Rolle Marty McFly’s. der Hauptperson 
des Films. Die (deutsche) Anleitung be¬ 
hauptet zwar, das Spiel sei einfacher, 
wenn man den Film gesehen habe, dies 
stimmt aber nicht unbedingt. Zwar wird 
man die Rahmenhandlung nur verste¬ 
hen, wenn man den Film gesehen hat 
(die Anleitung ist hier wie in bezug auf 
das Spiel selbst ziemlich durcheinander 
und unvollständig), doch um generell 
spielen zu können, ist es nicht nötig, sie 
zu kennen. 

Im ersten Level, der im Jahre 2015 
spielt, muß man mit einem Hoverboard 
durch Hill Valley fahren und heil am 
Rathaus ankommen. Auf den Straßen 
befinden sich Hindernisse in Form von 
spielenden Kindern, Autos und anderen 
Hoverboard-Fahrem, die Marty regel¬ 
recht verfolgen. Eine Berührung mit 
diesen sollte tunlichst vermieden wer¬ 
den. Dabei scrollt das Spielfeld abwech¬ 
selnd horizontal und diagonal. Ein Zeit¬ 
limit sorgt für zusätzliche Erschwernis. 

Der zweite Level spielt im Haus der Zu¬ 
kunft. aus dem Jenny gerettet werden 
muß. Dieser Teil ist ein - relativ origi¬ 
nelles-Strategiespiel. Das Haus wird in 
Draufsicht dargestellt, Türen können in 
verschiedenen Kombinationen geöffnet 
werden. Wenn eine Person (egal ob Jen¬ 
ny oder einer der Mitbewohner) einen 
Raum durch eine Tür verlassen kann, tut 
sie das. 

Beispielsweise muß man versuchen, die 
Türen so zu öffnen, daß Jenny das Haus 
verlassen kann, ohne einer anderen Per¬ 


son zu begegnen. Klingt verwirrend, 
aber wenn man es spielt, begreift man 
sehr schnell, was zu tun ist. Auch hier 
gibt es, wie übrigens auch in allen fol¬ 
genden Levels, die jeweils nachgeladen 
werden, ein Zeitlimit. 

Egal, ob man die zweite Runde aufgege¬ 
ben oder geschafft hat (dann gibt's Ex¬ 
traleben), kommt man in Level drei. 
Dieser ist ein von rechts nach links 
scrollendes Prügelspiel. Vorbei an 
schlagenden und schießenden Gegnern 
muß man bis zum DeLorean , dem Wun¬ 
derauto von Marty, Vordringen. Dieser 
Teil spielt im Jahre 1985. Ab und zu lie¬ 
gen, wie auch im ersten Level, Extras 
auf dem Boden, etwa neue Energie, die 
die Aufgaben des Spielers erleichtern. 
Obwohl die Spielfigur auch springen 
und verschiedene Schläge ausführen 
kann, kommt man mit einer einzigen 
Schlagart recht gut voran. 

Hat man das überstanden, gibt’s im 
nächsten Level wieder etwas zum Kno¬ 
beln: Ein Bild muß zusammengesetzt 
werden. Dies funktioniert wie die 
Schiebepuzzles, die es vor Jahren ohne 
Computer gab. Zum letzten und fünften 
Level gelangt man wiederum unabhän¬ 
gig vom Erfolg bei dem Puzzle. Man 
fühlt sich auf den ersten Blick an Level 
1 erinnert. Auf den zweiten Blick zeigt 
sich, daß beide Teile spielerisch sogar 
fast identisch sind. An einer leicht ver¬ 
änderten Hintergrundgrafik hüpft und 
schlägt man sich auch hier zum Ziel. 

Fünf Spiele in einem? 

Die Methode, für verschiedene Film¬ 
szenen verschiedene Spielchen zu pro¬ 
grammieren, die durch eine gemeinsa¬ 
me Rahmenhandlung zusammengehal¬ 
ten werden, ist nicht gerade neu, doch 
gut für ein Spiel zum Film geeignet. Auf 
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diese Weise sind die einzelnen Szenen 
auch für den Spieler wiedererkennbar, 
außerdem wird das Spiel abwechslungs¬ 
reicher. Bei Back to theFutureil gibt es 
zwischen den Levels außerdem Sequen¬ 
zen, in denen sich Doc und Marty über 
die verfallenden oder anstehenden 
Unternehmungen unterhalten. Beim er¬ 
sten Spielen ist dies recht witzig und un¬ 
terhaltsam, weil es den Filmcharakter 
unterstreicht. Wenn man den Dialog je¬ 
doch zum dritten Mal liest, würde man 
ihn gerne mit einem Tastendruck been¬ 
den, was leider nicht möglich ist. 

Während des ganzen Spiels plätschert 
eine Adaption der Filmmusik vor sich 
hin, die aber früher oder später zu ner¬ 
ven beginnt. Die Grafik in den Levels 1, 
3 und 5 ist in Mode 1 programmiert und 
schön detailliert. Warum aber auf dem 
Spielfeld nur zwei, in der Statusanzeige 
aber vier Farben verwendet werden, er¬ 
scheint irgendwie unverständlich. Auch 
die Animation der Figuren ist entweder 
nicht vorhanden, oder die Figuren be¬ 
wegen sich Hampelmann-ähnlich, und 
das Scrolling ist ebenso langsam wie 
ruckartig. Im zweiten Level ist die Gra¬ 
fik zwar winzig, aber bunt und - so gut 
wie eben möglich - detailliert. Am vier¬ 
ten Teil gibt es grafisch nicht viel auszu¬ 
setzen. 

Fazit: Lauwarmes Spielchen 

Insgesamt gesehen ist Back to the 
Future II höchstens Mittelmaß. Ab¬ 
wechslung ist zwar vorhanden, doch vor 
allem bei den Action-Teilen hapert es 
stark an der Realisierung. Der Spielab¬ 
lauf ist viel zu langsam, die Grafik auch 
nicht weltbewegend. Der zweite Spiel¬ 
abschnitt ist ein gewisser Lichtblick. Da 
man die Knobelteile jedoch nicht ein¬ 
mal schaffen muß, um weiterzukom¬ 
men. und da diese ziemlich einfach sind, 


Bild 8: 

DELIVERANCE 
(STORMLORD II) 

- Auf geht’s in die 
Fantasy-Weh 

wenn man einmal die Lösung kennt, 
bleiben als Hauptbestandteil doch wie¬ 
der die Action-Szenen übrig, die zudem 
noch so leicht sind, daß sie erfahrene 
Spieler kaum fordern. Ähnliche Spiel¬ 
prinzipien wurden schon oft und vor al¬ 
lem besser realisiert. Wer ein Fan des 
Films ist und gerne leichte Spiele mag, 
kann sich’s ja einmal ansehen. Viel¬ 
leicht sollte man sich aber lieber noch¬ 
mal den Film anschauen und statt des¬ 
sen ein anderes Spiel kaufen. 


Info 

Hersteller: Image Works / Mirrorsoft 
Steuerung: Joystick (Hier Tastatur 
Voraussetzung: alle CPCs 


• Deliverance (Stormlord II) 

Schon die Verpackung zeigt, daß es sich 
bei Deliverance um ein Spiel handelt, 
das in eine Fantasy-Welt entführt. Die 
Grafik, zwar ganz nett gemalt, sagt aber 
über das Spiel nur aus, von wem es pro¬ 
grammiert wurde: Raffaelle Cecco , der 
sich schon mit Spielen wie Exolon und 
Cyhernoid einen Namen in Sachen Ac¬ 
tion-Games gemacht hat. 

Öffnet man die Verpackung, findet man 
einen Aufkleber und eine kurze vier¬ 
sprachige (auch deutsche) Anleitung, 
die ganze dreieinhalb Zeilen der Hinter¬ 
grundstory widmet: Feen müssen aus 
der Hölle und einem Königreich gerettet 
und in den Himmel geleitet werden. 
Dann werden die Funktionen des Pro¬ 
gramms kurz erklärt. Allerdings wird 
das Spiel mit <CTRL>, <SHIFT> und 
<ESC> abgebrochen und nicht, wie in 
der Anleitung behauptet, mit <CON- 
TROL>, <ENTER> und <ESC>. 


Das “Handbuch” ist mehr 
als dürftig 

Deliverance ist ein dreiteiliges Spiel. Je¬ 
der Teil besteht aus zwei normalen und 
zwei Bonus-Levels. Wer einen Teil 
durchgespielt hat, bekommt einen 
Code, mit dem er in den nächsten Part 
gelangen kann. Die einzelnen Teile wer¬ 
den getrennt geladen. 

Das Spielfeld scrollt von rechts nach 
links. Die Hauptfigur, Stormlord stößt 
auf Unmengen von Gefahren: große, 
größere und zu große Fledermäuse, 
Spinnen, Drachen, brodelnde Feuerseen 
und herunterfallende Steine, um nur ei¬ 
nige zu nennen. Als wahrer Fantasy- 
Held kann sich Stormlord natürlich 
auch zur Wehr setzen und hat dazu, so¬ 
zusagen angeboren, einen unbegrenzten 
Vorrat an Schüssen. Ab und zu findet er 
auch andere Waffen, die verschiedene 
Flugbahnen und Reichweiten haben. 
Fünf verschiedene kann er aufnehmen 
und zwischen ihnen umschalten, wozu 
aber die Tastatur benötigt wird. 

Drückt man lange den Feuerknopf, wird 
die gegenwärtig gewählte Waffe einge¬ 
setzt, und den Feinden vergeht Hören 
und Sehen. Aber aufgepaßt: Stormlords 
Waffenvorrat ist begrenzt. Manchen 
Hindernissen kann man nur entgehen, 
indem man springt. Kurzes Nach-oben- 
Drücken hat einen kleinen Sprung zur 
Folge. Entsprechend hat eine Joystick¬ 
bewegung nach links oben einen Sprung 
nach links oben zur Folge. Drückt man 
zweimal schnell nacheinander, springt 
Stormlord höher, bei dreimal drücken 
erreicht er seine volle Sprunghöhe. 

Leider ist diese Steuerungsmethode, 
vorsichtig ausgedrückt, etwas gewöh¬ 
nungsbedürftig, und anfangs verliert 
man oft ein Leben. Vor allem, wenn man 
schräg und weit springen muß, fragt 
man sich, ob diese Steuerungsmethode 
extra gewählt wurde, um das Spiel zu 
erschweren. 

Ab und zu muß erst eine Horde Monster 
beseitigt werden, bevor man weiterge¬ 
hen kann, und am Ende jedes Levels 
wartet ein besonders großer Bösewicht 
auf den Spieler. Hilfe gibt es manchmal 
von einem Drachenweibchen, das 
Stormlord auf dem Rücken ein Stück 
mitnimmt, wenn er ihre herunterfallen¬ 
den Eier aufsammelt. 

Im Bonuslevel besteht die Chance auf 
Freileben. Hier kann Stormlord nicht so 
hoch springen, aber dafür auf Herzen 
stehen, die erscheinen, wenn der Spieler 
Feuer drückt. So kann man sich zu den 
Feen hocharbeiten, wenn man sich nicht 
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von dem inzwischen nicht mehr dank¬ 
baren Drachenweibchen erwischen läßt. 
Eine Berührung mit diesem beendet die 
Bonusrunde. 

Ein Leckerbissen für 
Viel-Spieler 

Wie von Cecco gewohnt, geht die Pro¬ 
grammierung voll in Ordnung. Massen¬ 
haft bewegte Objekte, flüssiges Scrol¬ 
ling, schneller Spielablauf. Titelmusik 
und Soundeffekte können ebenfalls 
überzeugen. Die Grafik ist sehr farben¬ 
froh. alles ist groß und gut animiert ge¬ 
zeichnet. Obwohl es sich “nur” um ein 
Action-Spiel handelt, sorgen die edle 
Grafik und die vielen verschiedenen 
Gegner für Abwechslung. Auch Gags, 
wie zum Beispiel das Drachenweib¬ 
chen. lockern das Spiel auf, das aber zu 
Beginn recht schwer ist. Dadurch be¬ 
steht die Gefahr, daß ungeübte Spieler 
frustriert werden. Abgesehen davon läßt 
sich an Deliverance aber nichts bean¬ 
standen. es ist - mit etwas Übung - ein 
Hit! 

Drei Bonusspiele 

Was nirgends, weder auf der Verpak- 
kung noch in der Anleitung steht: Auf 
der Rückseite der Diskette befinden sich 
drei ältere Mastertronic-Spiele, und 
zwar Formula I, One Man & His Droid 
sowie Trashman. Alle drei sind nicht ge¬ 
rade umwerfend, aber als kostenlose 
Zugabe sicherlich doch willkommen. 


Info 

Hersteller: Hcwson Consultant 
Steuerung: Joystick oder Tastatur 
Voraussetzung: alte CPCs 


• DARK CENTURY 

Im Jahre 2290 sind alle Gefängnisse 
überfüllt, deshalb werden die Gefange¬ 
nen auf künstlichen Satelliten inhaftiert, 
wo sie in Fabriken Zwangsarbeit ver¬ 
richten müssen. Irgendwie scheint ihnen 
das jedoch nicht zu passen, denn eine 
Gruppe der gefährlichsten Verbrecher 
hat sich gewaltsam einige der hochmo¬ 
dernen Spezialpanzer angeeignet. Ihr 
Ziel ist es, die anderen Gefangenen zu 
befreien, zur Erde zu fliehen und dort 
einmal kräftig für Unruhe und Panik zu 
sorgen. Das soll natürlich um jeden 
Preis verhindert werden, und daher wer¬ 
den ein paar Helden in spe damit beauf¬ 
tragt, die flüchtenden Gangster kurzer¬ 
hand abzuknallen. 



Bild 9: 

DARK CENTURY - 
vielversprechende 
Verpackung, wenig 
Spielspaß 

Auf Satellit #24 ist die Hölle los 

Auf der Verpackung wird kräftig die 
Werbetrommel gerührt für “das erste 
Arcaden-Spiel, das Ray-Tracing be¬ 
nutzt”, für hyperrealistische 3D-Grafik, 
für Kampf, Geschwindigkeit und Stra¬ 
tegie sowie einen Split-Screen-Modus 
für zwei Spieler. Die Anleitung er¬ 
scheint reichlich dünn für ein Spiel, bei 
dem es auf Strategie ankommen soll. 
Außer einer kurzen Einführung in Story 
und Bedienung gibt sie auch nicht viel 
her. Wenn man alleine spielt, ist die obe¬ 
re Hälfte des Bildschirms das Action- 
Fenster. Das untere ist voll mit irgend¬ 
welchen Anzeigen. Im Zwei-Spieler- 
Modus verschwinden diese zugunsten 
eines Action-Fensters für den zweiten 
Spieler. Schon daran kann man die Be¬ 
deutung dieser Anzeigen erkennen. 

Der oder die Spieler können ihren eige¬ 
nen Panzer über die Oberfläche des Pla¬ 
neten steuern und gegnerische Panzer 
abschießen. Es gibt aber auch Panzer, 
die genauso aussehen wie die gegneri¬ 
schen, in denen jedoch keine Verbrecher 
sitzen. Diese sollte man daher auch 
nicht abknallen. Erkennen kann man sie 
nur daran, ob ein kleines Lichtchen 
leuchtet oder, wenn man allein spielt, an 
der Farbe, mit der das Gefährt auf dem 
Radarschirm angezeigt wird. 

Je schneller man fährt, desto weniger 
durchschlagend ist die bordeigene La¬ 
serkanone und desto schwächer auch 
der eigene Schutzschild. Gegnerische 
Treffer und eigene Schüsse verringern 
die Energie des eigenen Panzers, die 
ater ab und zu durch Abschießen merk¬ 
würdiger herumfliegender Dinger auf¬ 
gefüllt werden kann. 

Außerdem sollte man sich bei seiner 
Mission nicht zu viel Zeit lassen, denn 
sonst ist es zu spät und die Gefangenen 


sind endgültig entkommen. Nach Spiel¬ 
ende haben Besitzer eines Disketten¬ 
laufwerks die Möglichkeit, ihren 
Namen in eine High-Score-Liste einzu¬ 
tragen, die sogar abgespeichert wird. 
Ein Service, den man sich bei vielen an¬ 
deren Spielen wünscht. 

Ein Spiel für zwei 

Schnelle Grafik und eine Dauerberiese¬ 
lung mit futuristischer Musik machen 
noch kein Spitzenspiel. Der Zwei-Spie- 
ler-Modus hilft da schon eher - wobei 
man darauf achten sollte, nicht ständig 
seinen Mitspieler ins Visier zu neh¬ 
men ... Wenn man allein spielt, wird 
Dark Century schnell eintönig. Zu oft 
wurden ähnliche Spielprinzipien schon 
verwendet, meist besser und mit mehr 
strategischen Elementen. Zum Beispiel 
schlägt schon der Aclion-Teil von Elite, 
welches außerdem noch jede Menge 
Strategie- und Abenteuerelemente auf- 
weist, das hier vorgestellte Dark Cen¬ 
tury um Längen. Wer aber oft einen Mit¬ 
streiter parat hat, kann sich den Kauf 
von Dark Century ruhig überlegen. 


Info 

Hersteller: Titus Software 
Steuerung: Tastatur oder 
Joystick und Tastatur 
Voraussetzung: alle CPCs 


(Andreas Lober/tk) 


Info 

Alle liier aifgef'ilirren Spiele sind als Diskelien-Ver- 
sion erhältlich bei; 

EDV-Obermayer 
Bünder Straße 20 
4972 Löhne 
Tel.: 05732/6126 
Preis pro Spiel: 84.50 DM 
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^Hardware 


Multi-Floppy für den CPC 


Hardware-Bastelei für 5,25-Zoll- 
Diskettenlaufwerke 


Oft kommt es vor, daß man gerne möchte, aber nicht kann: alle möglichen 
Diskettenformate mit dem CPC lesen. Unsere hier vorgestellte Lösung hilft 
dem ab. 


Die hier vorgestellte Multi-Floppy-Sta- 
tion ermöglicht unter anderem das Le¬ 
sen der folgenden Diskettenformate: 

-AMSDOS SYSTEM 

Vorderseite 40 Spuren 

- AMSDOS SYSTEM 
Rückseite 40 Spuren 

-AMSDOS SYSTEM 
40 Spuren auf den ersten 40 Spuren 
eines 80-Spur-Laufwerkes 
(Vorderseite) 

-AMSDOS DATA 
Vorderseite 40 Spuren 
-AMSDOS DATA 
Rückseite 40 Spuren 
-AMSDOS DATA 
40 Spuren auf den ersten 40 Spuren 
eines 80-Spur-Laufwerkes 
(Vorderseite) 

- MS-DOS-36()-kByte-Format 
(40 Spuren zweiseitig) 

- alle Formate des DP-Programms 
von AKSOFT 

(80 Spuren ein- oder zweiseitig bis 
800 kByte unter CP/M plus) 
sowie alle Formate von VORTEX. 
CPA, CP/M, KEYPRO und andere. 

Zusätzlich sind auch alle Disketten les¬ 
bar, die auf Laufwerken mit sogenann¬ 
ten Seitenumschaltem beschrieben wur¬ 
den. 


Zum Aulbau der Multi-Floppy-Station 
sind zwei Laufwerke erforderlich: 

- ein 80-Spur-Laufwerk zweiseitig 
(TEAC FD55FR oder 
SHUGART SA465), welche auch 
als 720-kByte-Laufwerke erhältlich 
sind 

- ein 40-Spur-Laufwerk zweiseitig 
(TEAC FD55BR oder 
SHUGART SA455), die auch 

als 360-kByte-Laufwerke 
erhältlich sind. 

Zur Verbindung mit dem Floppybus 
sind insgesamt 13 Leitungen nötig. Die 
Verdrahtung des Verbindungskabels ist 
aus der Zeichnung ersichtlich. Die Lei¬ 
tungsführung geht vom CPC zum 80- 
Spur-Laufwerk und weiter zum 40- 
Spur-Laufwerk. Eine Ausnahme bilden 
die Anschlüsse 10 (/SELECTO) und 32 
(/SIDE SELECT), diese werden extra 
geschaltet. Hiermit wird vermieden, daß 
zwei Laufwerke gleichzeitig aktiv sind. 
Der momentan eingestellte Zustand 
wird über LEDs angezeigt. 


Pin Bezeichnung 

Bemerkungen 

1.3.5.... 

Masse 

mit CPC Masse 
(0V) verbinden 

2 



4 





Bild I: Und so wird's gemacht: der Schaltplan für Multi-Floppy 


* 

.... ' . . 


8 

/IDX 

Indcxirapuls (1 Im¬ 
puls je Umdrehung) 

10 

/SELECTO 

Laufwerksauswahl 

12 



14 

16 



/MOTOR ON 

schaltet den Disket 
lenmotorcin 

Slli 

/STEPD1R 

Schrittrichtung des 
Kopfmotors 

20 

/STEP 

Schrillimpuls für 
Kopfmotor 

22 

/WRITE 

Schreiben von 

Daten 

24 

AVRITEKN 

Schreibfreigabc 

Daten gültig 

26 

/ro 

Nullte Spur erreicht 

28 

/WRITEPROT 

Schreibschutz der 
Diskette isi gesetzt 

30 

/READ 

Lesen von Daten 

32 

/SIDESEL 

Scitenauswahl Vor¬ 
der- oder Rückseite 

jlj 

/READY 

Fertigsignal der 
Floppy 


Die oben aufgeführte Pinbelegung soll¬ 
te auf jeden Fall auf Übereinstimmung 
mit der im Gerät vorhandenen überprüft 
werden. Es wurde leider festgestellt, 
daß der Hersteller der CPCs bei ver¬ 
schiedenen Gerätegenerationen unter¬ 
schiedliche Anschlußbelegungen der 
Floppyerweiterung verwendet hat. 

Mit dem in der Schaltung verwendeten 
Stufenschalter können folgende Konfi¬ 
gurationen eingestellt werden: 


Stellung I: 
Stellung 2: 


Stellung 3: 


Stellung 4: 


80-Spur-Laufwcrk zweiseitig 

40-Spur-Laufwerk Vorderseite 
normal als B-Laufwerk unter 
A MS-DOS 

40-Spur-Laufwerk Rückseite 
als B-Laufwerk unter AMS- 
DOS ohne Umdrehen der Dis¬ 
kette und ohne Ausschneiden ei¬ 
ner zweiten Schreibschutzkerbe 
odereines zweiten Indexloches 

40-Spur-Laufwerk zweiseitig 
für das Lesen und Schreiben 
von 360-kByle-MS-DOS-Dis- 
ketten 


Zu dem 80-Spur- und dem MS-DOS- 
Format muß gesagt werden, daß natür¬ 
lich entsprechende Programme vorhan¬ 
den sein müssen, die in der Lage sind, 
solche Formate zu bedienen. 

Die oben vorgestellte Schaltung ist ein¬ 
fach gehalten, sollte aber, da einige Pro¬ 
bleme mit der Busbelegung auftreten 
könnten, nur von einem versierten Bast¬ 
ler nachgebaut werden. 

(O. Matthäi, tk. jg) 
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Service—| 


AMS-Line 

Der Informationsdienst der Firma 
AMSTRAD 

In dieser Ausgabe der AMS-Line geht es um Treiber und Hilfen zuin Ober¬ 
flächenprogramm Windows sowie um Speichermanager 


Hilfsprogramme & Treiber 

Um eine schnelle Versorgung unserer 
Anwender mit den neuesten AM- 
STRAD-Treibern zu gewährleisten, ha¬ 
ben wir eine "Hilfediskette" erstellt, die 
die wichtigsten AMSTRAD-Treiber be¬ 
inhaltet und an alle AMSTRAD-Fach- 
händler verschickt wurde. 

So zum Beispiel Treiber, um DOS 3.30 
oder 4.01 auf den PC 1640 einzusetzen; 
Druckertreiber für unseren LQ 5000 
und LQ 3500 mit Word 4.0 oder Word 
5.0; Hilfsprogramm MOUSEFIX für 
Windows 3.0; (Treiber, die in früheren 
AMS-Line-Ausgaben besprochen wur¬ 
den) und so weiter. 

Sie können sich nun die Treiber, die Sie 
benötigen, direkt bei Ihrem Fachhändler 
kopieren. 

Windows 3.0 (Fortsetzung) 

Da bei unserer Hotline immer wieder 
Fragen zur Windows-3.0-Installation 
gestellt werden, hier noch einmal die In- 
stallationsanleilung: 

Viele Anwender wollen die neueste 
Windows Version 3.0 auf Ihren Compu¬ 
tern einsetzen. Die Hardware-Voraus¬ 
setzung hierfür ist (laut Microsoft) min¬ 
destens ein 80286- oder höherer Prozes¬ 
sor (AT-Rechner). 

Bei der Installation kann es bei manchen 
Geräten (PC2386/PC2286) Vorkom¬ 
men. daß das SETUP-Programm von 
Windows die Maus (Amstrad-Maus) 
nicht erkennt. Sie können nach der voll¬ 
ständigen Installation nur über die Ta¬ 
statur arbeiten. Um die Maus unter Win¬ 
dows zur Verfügung zu haben, führen 
Sie bitte folgende Schritte durch: 

Legen Sie auf der Festplatte C:\ein Un¬ 
terverzeichnis, zum Beispiel "AM" an: 

MD C:\AM <RETURN> 

Kopieren Sie das EXPAND.EXE-Pro- 
gramm (befindet sich auf der 2. Installa¬ 
tionsdiskette von Windows 3.0) auf Ihre 
Festplatte in das leere Unterverzeichnis: 

COPY A:\EXPAND.EXE C:\AK 
<RETURN> 

Kopieren Sie die Datei MOUSE.SY$ in 
das gleiche Unterverzeichnis (von der 
Installationsdiskette 5). Beachten Sie 


bei der Eingabe das "$"-Zeichen: 

COPY A:\MOUSE.SYS C:\AM <RETURN> 
Gehen Sie in das Unterverzeichnis 

CD \AM <RETURN> 

und geben Sie folgenden Befehl ein: 

EXPAND MOUSE.SY$ MOUSE.SYS <RE- 
TURN> 

Nun müssen Sie in Ihrer CONFIG.SYS- 
Datei noch folgende Zeile eingeben: 

DEVICE=C: \AK\MOUSE .SYS <RETURN> 

Damit dieser Treiber auch aktiviert wer¬ 
den kann, benötigen Sie nur noch das 
Programm MOUSEFIX.EXE. Dieses 
Programm erhalten Sie bei einem unse¬ 
rer Fachhändler (befindet sich auf der 
oben erwähnten "Hilfediskette"). 

Legen Sie die Diskette mit dem Pro¬ 
gramm MOUSEFIX in das Laufwerk 
A:, wechseln Sie das Laufwerk und ge¬ 
ben Sie nachfolgendes ein: 

MOUSEFIX C:\AM\MOUSS.SYS <RE- 
TURN> 

Nach ein paar Sekunden erscheint der 
Cursor wieder und nun müssen Sie nur 
noch einen Warmstart 

<ALT+CTRL+ENTF> durchführen, 
um den Mousetreiber zu aktivieren. 

Sollten Sie spezielle Anfragen zu Mi¬ 
crosoft-WIN DO WS haben, wenden Sie 
sich bitte direkt an die Hotline der Firma 
Microsoft in München: 

Telefonzentrale: 089 / 31 70 5 - 0 
Windows-Hotline: 089 / 31 70 5 - 85 

An der Windows-Hotline stehen Ihnen 
für Ihre Anfragen die Windows-Spezia¬ 
listen direkt zur Verfügung. 

PC 2386 & Speicherverwaltungspro¬ 
gramme 

Viele Anwender wollen durch den Ein¬ 
satz von Speicherverwaltungsprogram¬ 
men die Vorteile der 80386-CPU aus¬ 
nutzen, um unter DOS mehr Arbeits¬ 
speicher zur Verfügung zu haben. 

Wir haben folgende Speicherverwal¬ 
tungsprogramme für Sie getestet: 

386 MAX Version 5.1 

Quaterdeck expanded memory manager 

386 Version 5.0 


Folgende Tips helfen Ihnen, diese Spei- 
cherverwallungsprogramme optimal zu 
installieren. Wollen SieiSö MAX instal¬ 
lieren, müssen folgende Optionen ein¬ 
gesetzt werden: 

NOCOMPROM 

SHADOWROM 

Wichtig: SHADOWROM. nicht RAM 

Sie erhalten jetzt einen 16 kByte großen 
"HIGH DOS "-Speicher. Auf dem AM¬ 
STRAD PC 2386 können Sie durch fol¬ 
gende 386-MAX-Optionen insgesamt 
108 kByte (zuzüglich 64 kByte, bei 
Verzicht auf EMS) zur Verfügung be¬ 
kommen: 

RÖM=E000-E 100 
ROM=E400-EC00 
USE=B000-B800 
U S E=E 100-E400 
USE=F500-F600 
U S E=FD00-FE00 

Wenn Sie den Quaterdeck expanded 
memory manager 386 einsetzen wollen, 
müssen Sie die Software mit dem IN- 
STALL-Programm auf der Festplatte 
installieren. Danach booten, aber die 
Abarbeitung des QEMM-Treibers 
durch Drücken der <ALT>-Taste unter¬ 
binden. Jetzt können Sie in der CON¬ 
FIG.SYS-Datei die Zeile mit dem 
QEMM-Treiber folgendermaßen editie¬ 
ren: 

DEVICE=C: \QEMM\QEMK .SYS NCF EX- 
CLÜDE E400-EBFF RAM 

Danach den PC neu booten und das Pro¬ 
gramm OPTIMIZE ausführen. Nun ha¬ 
ben Sie durch Verschiebung von Pro¬ 
grammen in die High Memory Area den 
konventionellen, verfügbaren Arbeits¬ 
speicher um 42 kByte vergrößert. Hin¬ 
weis: Falls sich das Programm nicht, 
wie hier beschrieben, installieren läßt, 
müssen Sie eine Brücke (LK 36) ziehen. 
Diese Brücke sitzt auf der Hauptplatine 
des Rechners (hinter den CACFIE- 
IC’s). Sie ist durch die Öffnung im Ge¬ 
häuseunterteil zugänglich. Bitte wenden 
Sie sich an Ihren Fachhändler. 



Die AMS-Line ist ein Informationsscrvice der Firma 
AMSTRAD GmbH und unterliegt nicht der Verantwor- 
lung der Redaktion. 

Anfragen zu den gegebenen Informationen bitte aus¬ 
schließlich an die Firma AMSTRAD GmbH 
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I—Tips & Tricks 



Farbscreens 
auf Papier 

Farb-Hardcopies vom CPC 

Sie wollen einen farbigen Ausdruck Ihres Bildschirms, 
und die — selten angebotenen —Hardcopy-Programme 
für Farbdrucker sind Ihnen zu teuer? Werfen Sie doch 
einmal einen Blick auf diesen Beitrag! 

Nach dem Kaufeines Computers wächst wohl in jedem frü¬ 
her oder später der Wunsch, sich einen Drucker zuzulegen. 
Sie vergleichen Preis und Leistung und entscheiden sich für 
einen Farbdrucker. Welches Hardcopy-Programm ist nun 
universell einsetzbar? Hier die Lösung — COL-DUMP. 

Mit COL-DUMP.BAS ist es möglich, jeden 17-kByte- 
Screen. also jedes Bild, das ohne Pack-Routine abgespei¬ 
chert ist, auszudrucken. Das Programm arbeitet vollautoma¬ 
tisch, da es das Papier nach jeder Farbe wieder an die richtige 
Position setzt und nach Druckende auswirft. Im Programm 
vorkommende Texte sind aus Speicherplatzgründen in Eng¬ 
lisch gehalten. Als Unterprogramm kam die Hardcopy-Rou¬ 
tine aus Ausgabe 3/90 zur Anwendung; eventuell nötige An- 
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passungen sind dort genau beschrieben. Benutzen können Sie 
dieses Programm natürlich auch auf normalen einfarbigen 
Matrixdruckern. Dazu benötigen Sie Farbbänder in Gelb. 
Rot, Blau und Schwarz (im Handel mittlerweile erhältlich). 
Diese wechseln Sie dann an entsprechender Stelle. Getestet 
wurde das Programm auf einem Olivetti DM 105. 

Tippen Sie das Programm ab, und speichern Sie es mit 
SAVE"C0L-DUMP.BAS“ 

Starten Sie mit 
RUN “COL-DUMP.BAS“ 

Danach werden Sie mit der Meldung Pleuse Insert data disc 
zum Einlegen der Diskette mit der auszudruckenden Bild¬ 
schirmdatei aufgefordert. Bestätigen Sie mit einer Taste. 
Nach der Ausgabe des Diskettenkatalogs erscheint die Mel¬ 
dung Type natne or move Cursor to first letter of turne to 
copy, pressLITTLE ENTER. Damit werden Sie aufgefordert, 
den Namen der auszudruckenden Datei einzugeben oder den 
Cursor auf den Anfangsbuchstaben des Dateinamens zu füh¬ 
ren. Betätigen Sie jetzt die kleine ENTER-Taste. Sind die 
Fragen nach dem MODUS und den INK-Nummern beant¬ 
wortet, beginnt der Computer mit der Bearbeitung der ßiid- 
schirmdatei. 

Nach fünf bis zwanzig Minuten, je nach Art des Bildes, ist 
der Ausdruck beendet. Die zeitkritischen Routinen des Pro¬ 
gramms sind schon in Maschinencode geschrieben, daher ist 
eine weitere Beschleunigung des Programms leider nicht 
möglich. 
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Falls sich beim Ausdruck Probleme ergeben, sollten Sie als 
erstes überprüfen, ob die in den REM-Zeilen am Anfang des 
Listings gemachten Bemerkungen eine Abhilfe schaffen. 
Wenn Ihr Drucker andere Steuerzeichen benötigt, müssen 
Sie Änderungen an der Hardcopy-Routine vornehmen. Als 
Grundvoraussetzung benötigen Sie dann aber einen Assem¬ 
bler, den Quellcode der Hardcopy-Routine und die Beschrei¬ 
bung dazu aus dem Heft 3/90. 

Nach der erfolgten Änderung (jetzt muß die Hardcopy-Rou¬ 
tine als HCOPY.BIN vorliegen) löschen Sie die Zeilen 1030 
bis 1230 und fügen folgende ein: 


1030 L0AD‘‘HC0PY.BIN",&A000 

Eine solche Änderung ist aber nur zu empfehlen, wenn Sie 
einige Erfahrung mit der Maschinenprogrammierung be¬ 
sitzen. 

Sollten Sie einen Drucker ohne Papierrückschub benutzen 
oder keinen Farbdrucker besitzen, so wird der Computer 
nicht ohne Ihre Hilfe arbeiten können. Er macht dann mit 
Tonsignalen darauf aufmerksam, wenn Ihr Eingreifen erfor¬ 
derlich ist. Bildschirmmeldungen sind leider aus programm- 
technischen Gründen nicht möglich. 

(Andreas Grosche/Jörg Gurowski) 


für 664-6128 


100 res$=CHR$(27) + " @ " 

110 ff$=CHR$(12) 

120 bk$=CHR$(27 ) + "j" 

130 

140 col$=CHR$(27)+"r" 

150 ' 

'Falls die Codes 
'fuer die einzelnen 
'Farben nicht mit 
'dieser Tabelle 

'uebereinstimmen,so ist in den 
'Zeilen 590-620 (C=...) jeweils 

'der Wert von C abzuaendern !! 



' * Druckerreset 
' * Form Feed 
'* Papierrueck- 
' schub n/216" 
'* Farbwahl: 


160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 


>> 

>> 

>> 

>> 


4=gelb 

l=rot 

2=blau 

0 =schwarz 


'* Fuer einfarbige Drucker: 

'* In Zeile 720 den Befehl 
'PRINT#8,col$;CHR$(c) 

'* durch 

'SOUND 2,1800,400,15:CALL &BB06 
'* ersetzen und das Farbband laut 
'* Tabelle in 160-190 beim Brummton 
'* auswechseln,dann Taste druecken 


'* Fuer Drucker ohne Papierrueck- 
'* schub:Zeile 710 ersetzen durch 
'CALL &BC06,&C0:SOUND 2,1800,400,15: 
CALL &BB06 

360 '* und beim Brummton das Papier an 
370 '* den Anfang der Seite zurueck- 
380 '* drehen,dann Taste druecken 
390 ' 

400 CALL &BC02:MODE 1:PAPER 0:PEN 1 
410 PRINT CHR$(7)"* TEN - SOFT 
420 PRINT 

430 PRINT"* COL-DUMP 
440 PRINT 

450 PRINT"* Colourhardcopy 
460 PRINT"* MODE 0,1,2 
470 PRINT 

480 PRINT"* written by Andreas Grosche 
490 PRINT"* 21/11/1990 
500 PRINT CHR$(7) 

510 ' 

520 '*** Main program 
530 ' 

540 MEMORY &3FFF:DEFINT a-z:DIM d(16):GOSU 
B 850:GOSUB 1030:CALL &BBBA 
550 PRINT:PRINT CHR$(24)"Please insert dat 
a disc"CHR$(24):CALL &BB06:MODE 2:KEY 139, 
STRINGS(12,CHR$(224))+CHR$(13):PRINT CHR$( 
7):CAT:PRINT CHR$(7):PRINT CHR$(24)"Type n 
ame or move Cursor to first letter of name 
to copy , press LITTLE ENTER : "CHR$(24) 
560 INPUT"",file$:LOAD file$,&4000:PRINT C 
HR$(7):KEY 139,CHR$(13):LOCATE 1,20:INPUT" 
Mode : ",m:MODE m:a=15+12*(m=l)+14*(m=2):P 
OKE &A21D,-27*(m<l):POKE &A21E,-27*(m<l):P 
OKE &A21F,-27*(m<2):FOR p=0 TO a:PRINT"INK 
"p;CHR$(8)",";:INPUT "",i 
570 IF p>l THEN INK p,i 

580 d(p)=i:NEXT:MODE m:INK 0,d(0):INK l,d( 
1):CALL &BC06,&40 

590 FOR p=0 TO a:GOSUB 760:NEXT:c=4:G0SUB 
700:'*** yellow 

600 FOR p=0 TO a:GOSUB 780:NEXT:c=l:GOSUB 
700 '*** red 

610 FOR p=0 TO a:GOSUB 800:NEXT:c=2:GOSUB 
700 '*** blue 

620 FOR p=0 TO a:GOSUB 820:NEXT:c=0:GOSUB 
700 '*** black 
630 ' 

Listing COL-DUMP.BAS 


[1446] 

[1553] 

[1511] 

[547] 

[1904] 

[117] 

[701] 

[1601 ] 

[1193] 

[2509] 

[1958] 

[1528] 

[1613] 

[117] 

[1881] 

[ 1022 ] 

[660] 

[576] 

[2044] 

[3499] 

[1400] 

[2858] 

[117] 

[3177] 

[2352] 

[3575] 

[849] 

[1799] 

[1927] 

[117] 

[1821] 

[1994] 

[361] 

[1287] 

[361] 

[1942] 

[829] 

[361] 

[3319] 

[841] 

[1045] 

[117] 

[1260] 

[117] 

[3610] 

[16857] 


[13876] 


[1027] 

[1437] 

[ 1569] 

[2162] 

[1728] 

[2815] 

[117] 


640 '*** End 
650 ' 

660 CALL &BC06,SCO:CALL &BC02:MODE 0:PRINT 
CHR$(7)" "CHR$(10)CHR$(24)"COL-DUMP is do 
ne !"CHR$(24)CHR$(7):PRINT:PRINT:PRINT#8,r 
es$:PRINT#8:PRINT#8:PRINT#8,"C 0 L - D U 
MP by TEN - SOFT written by An 
dreas Grosche":PRINT#8,ff$:END 
670 ' 

680 '***■Print 
690 ' 

700 IF cn=0 THEN RETURN ELSE cn=0:1=1+1 
710 CALL &BC06,&C0:IF 1>1 THEN FOR t=l TO 
6:PRINT#8,bk$;CHR$(100);:NEXT:PRINT#8,bk$; 
CHR$(81); 

720 PRINT#8,res$:PRINT#8,col$;CHR$(c):CALL 
&A000:MODE m:CALL &BC06,&40:RETURN 
730 ' 

740 '*** Test colour 
750 ' 

760 i=d(p):POKE &A228,p:IF (i=9 OR i=10 OR 
i=l2 OR i=15 OR i=16 OR (i>17 AND i<26)) 
THEN GOSUB 1240 
770 RETURN '* yellow 

780 i=d(p):POKE &A228,p:IF ((i>2 AND i<9) 
OR (i>14 AND i<18) ) THEN GOSUB 1240 
790 RETURN '* red 

800 i=d(p):POKE &A228,p:IF (i=l OR i=2 OR 
i=5 OR (l>8 AND i<12) OR i = 14 OR (i>17 AND 
i<24) ) THEN GOSUB 1240 
810 RETURN '* blue 

820 i=d(p):POKE &A228,p:IF i=0 THEN GOSUB 
1240 

830 RETURN '* black 
840 ' 

850 '*** MC: 

860 '*** DISPLOT 40C0 
870 '*** Fr.,17.08.1990 
880 '*** by TEN-Soft 
890 ' 

900 FOR adr=&A200 TO &A242:READ a$:POKE ad 
r,VAL("&"+a$):NEXT:RETURN 
910 DATA F3,CD,BA,BB,3E,01,CD,DE 
920 DATA BB,21,90,01,2B,2B,E5,11 
930 DATA 80,02,CD,1C,A2,E1,7D,B4 
940 DATA 20,F2,FB,C9,E5,1B,1B,1B 
950 DATA 1B,El,E5,D5,CD,F0,BB,FE 
960 DATA 01,20,11,3E,C0,CD,06,BC 
970 DATA Dl, El, E5 , D5 , CD, EA, BB, 3E 
980 DATA 40,CD,06,BC,Dl,7A,B3,20 
990 DATA DC,El,C9 
1000 ' 

1010 '*** Hardcopyroutine 
1020 ' 

1030 FOR adr=&A000 TO &A098:READ a$:POKE a 

dr,VAL("&"+a$):NEXT:RETURN 

1040 DATA ED,73,97,A0,CD,BA,BB,3E 

1050 DATA 1B,CD,72,A0,3E,31,CD,72 

1060 DATA A0,21,8E,01,06,1D,C5,3E 

1070 DATA 0D,CD,72,AO,3E,0A,CD,72 

1080 DATA A0,3E,1B,CD,72,A0,3E,4C 

1090 DATA CD,72,A0,3E,00,CD,72,A0 

1100 DATA 3E,03,CD,72,A0,06,80,3E 

1110 DATA 00,CD,72,A0,10,F9,11,00 

1120 DATA 00,06,07,0E,00,E5,CD,83 

1130 DATA AO,CB,11,2B,2B,10,F7,B7 

1140 DATA 79,El,E5,01,08,00,ED,42 

1150 DATA 30,02,E6,78,El,CD,72,A0 

1160 DATA 13,E5,21,80,02,ED,52,El 

1170 DATA 30,D7,01,F2,FF,09,CI,10 

1180 DATA A5,C9,4F,CD,09,BB,FE,FC 

1190 DATA 28,18,CD,2E,BD,38,F4,79 

1200 DATA C3,2B,BD,E5,D5,C5,CD,F0 

1210 DATA BB,FE,00,28,01,37,CI,Dl 

1220 DATA El,C9,ED,7B,97,A0,C9,00 

1230 DATA 00 

1240 CALL &A200:cn=cn+l:RETURN 


[772] 

[117] 

[12329] 


[117] 

[850] 

[117] 

[ 1927] 
[6356] 


[4447] 


[117] 

[1051] 

[117] 

[5623] 


[1108] 

[4703] 

[706] 

[4401] 


[656] 

[3369] 

[766] 

[117] 

[580] 

[2341] 

[1185] 

[1193] 

[117] 

[3641] 

[1105] 

[1578] 

[1116] 

[870] 

[1583] 

[865] 

[1772] 

[783] 

[185] 

[117] 

[1425] 

[117] 

[3025] 

[720] 
[1604] 
[692] 
[ 2222 ] 
[1550] 
[766] 
[1413] 
[1425] 
[1754] 
[1669] 
[722 ] 
[1270] 
[1460] 
[846] 
[591] 
[1513] 
[1984] 
[ 1021 ] 
[834] 
[95] 
[1751 ] 


Lisling COL-DUMP.BAS 
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Pack your BASIC 


Hilfsprogramme für BASIC 

Ihr Programm ist zu groß; Sie wollen eine Variable im 
gesamten BASIC umbenennen; Sie wünschen sich nur 
einen Befehl pro Zeile und, und, und ... Das sind alles 
Probleme, die man so mit seinen BASIC-Programmen 
hat. Aber jetzt gibt es BASIC-TOOLS. 

Mit BASIC-TOOLS wird es möglich, das gerade im Speicher 
befindliche BASIC-Programm zu bearbeiten und zu beein¬ 
flussen. Sie starten BASIC-TOOLS und laden anschließend 
das zu bearbeitende Programm. Es stehen Ihnen acht RSX- 
Befehle zur Verfügung. Vor dem Befehl sollte man natürlich 
den senkrechten Strich (durch SHIFT und Klammeraffe zu 
erreichen) nicht vergessen. Mit B ASIC-TOOL können Sie den 
Platzbedarf des im Speicher befindlichen BASIC-Programms 
verringern und dieses dadurch beschleunigen. 

Auch Variablen können Sie komfortabel umbenennen und 
eine Art "rechten Randausgleich" erzeugen. Geben Sie bei den 
Befehlen Anfangszeile und Endzeile an, so wird der Befehl in 
diesem Programmbereich ausgeführt. Werden diese Parame¬ 
ter oder einer der beiden nicht angegeben, wird das ganze 
Programm ab Anfang beziehungsweise bis zum Ende bearbei¬ 
tet. Bei einigen Befehlen ist die Angabe von Parametern von 
Bedeutung, diese Zahlenwerte sind aber auch optional, kön¬ 
nen also weggelassen werden. 

Nach der Ausführung des jeweiligen Befehls wird die alte 
Länge, die neue Länge und der Speichergewinn oder -verlust 
ausgegeben. Das veränderte Programm können Sie jederzeit 
abspeichern oder starten. 

Für das Programm benötigen Sie die beiden Listings BAS- 
TOOL.BAS und BAS-TOOL.LDR. Tippen Sie diese ab, und 
retten Sie sie auf Diskette. Nun laden und starten Sie BAS- 
TOOL.LDR. Dieser Lader legt die Binärdatei BAS- 
TOOL.BIN auf Ihrer Diskette ab. Diese wird durch BAS- 
TOOL.BAS in den Speicher geladen und initialisiert. 

Folgende RSX-Befehle, die aber leider nur auf dem CPC 6128 
funktionieren, stehen Ihnen nun zur Verfügung: 


REMKILL, Parameter, Anfangszeile, Endzeile 
Dieser Befehl löscht im angegebenen Programm bereich die 
Remarks. Wird als Parameter I angegeben, so wird jede REM- 
Zeile auf dem Bildschirm ausgegeben und abgefragt, ob das 
Remark gelöscht werden soll. Durch Angabe von 0 oder Weg¬ 
lassen des ersten Parameters werden automatisch alle Re¬ 
marks im Programmbereich gelöscht. 

PACK . Parameter, Anfangszeile, Endzeile 
verkürzt oder verlängert, soweit dies möglich ist, jede Zeile 
auf die im Parameter angegebene Länge. Dabei werden Zeilen 
zusammengefaßt beziehungsweise neue erzeugt. Setzen Sie 
im Parameter zum Beispiel eine 1, so werden aus den einzel¬ 
nen Statements jeder Zeile neue Zeilen gemacht. 

In diesem Fall sollte das Programm vor dem Aufruf mit gro¬ 
ßem Step (etwa 50) renumiert werden. Ist im Parameter eine 
Zahl größer als 255 angegeben, wird beim Listen der Bereich 
ab dem 256. Zeichen nicht mehr ausgegeben. 

Eine Zeile dieser Art darf nicht mehr editiert werden, da sonst 
dieser Bereich zerstört wird. Soll eine solche Zeile geändert 
werden, muß vorher mit PACK und einem Parameter, der klei¬ 
ner als 256 ist, das Programm wieder zerteilt werden. Eine 
optimale Verringerung des Speicherbedarfes erzielt man mit 
einem sehr hohen Parameter (zum Beispiel 30000). 

Wird der Parameter ausgelassen, wird das Programm auf 255 
Zeichen pro Zeile gepackt. Dies ist die höchstmögliche An¬ 
zahl. bei der das Programm noch editierbar ist. 

DATAPACK, Parameter, Anfangszeile, Endzeile 
Dieser Befehl hat nur eine Wirkung, wenn vorher PACK auf¬ 
gerufen wurde. Durch PACK werden unter Umständen meh¬ 
rere DATA-Zeilen zu einer Zeile zusammengefaßt. DATA¬ 
PACK löscht das dazwischenliegende Trennzeichen und den 
DATA-Befehl. Es wird also daraus eine einzige lange DATA- 
Zeile erzeugt, die aber nicht mehr getrennt werden kann. 

SPACE, Parameter, Anfangszeile, Endzeile 

Löscht alle überflüssigen Leerzeichen. Nachdem Aufruf kann 

es zu einem "Syntax Error" kommen, der ignoriert werden 

kann. 

RSX 

Dieser Befehl ersetzt im gesamten Programm die RSX- Auf¬ 
rufe durch CALL-Befehle. Vorher muß die entsprechende Be¬ 
fehlserweiterung jedoch initialisiert sein. Dies kann durch 
Starten des Programms erreicht werden (meistens wird ein 
Maschinenprogramm geladen und dieses mit CALL initiali¬ 
siert). 

Man sollte darauf achten, daß HIMEM im Programm durch 
MEMORY nicht über &8DFF gesetzt wird. In diesem Fall 
ändern Sie den Weil auf &8DFF. Außerdem sollten Sie das 
Programm vor der Ausführung eines RSX-Befehls unterbre¬ 
chen. Dies können Sie zum Beispiel durch Setzen eines END 
bewirken. In den meisten Fällen müssen Sie nun mit 

LOAD"BAS-TOOL.BIN" 

diesen Programmteil noch einmal nachladen, da dieser oft 
durch Erweiterungen überschrieben wird. 

Sollten die RSX-Befehle von BASIC-TOOL nicht mehr er¬ 
kannt werden (Fehlermeldung "Unknown command"), muß 
jetzt noch eine Neuinitialisierung mit CALL &9700 vorge¬ 
nommen werden. 
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Falls aber bekannt ist, daß das geladene Maschinenprogramm 
BASIC-TOOL.BIN (&9700 bis &A67B) nicht überschrieben 
hat, kann nun 

| RSX 

aufgerufen werden. 

VARPACK. Parameter 

benennt die Variablen eines Programms um. Wird der Parame¬ 
ter ausgelassen oder 0 angegeben, so werden automatisch alle 
Variablen des Programms umbenannt, und der Computer be¬ 
stimmt die neuen Namen. Dies kann auf dem Bildschirm ver¬ 
folgt werden. Die Werte des Parameters bewirken folgendes: 

1. Bei jeder Variable wird abgefragt, ob diese umbenannt 
werden soll. Nach dem alten Namen erscheint ein Frage¬ 
zeichen. Durch RETURN wird die davorstehende Varia¬ 
ble geändert. 

2. Bei jeder Variable wird abgefragt, ob der neue Namen 
durch den Computer oder den Benutzer festgelegt werden 
soll. Es erscheint ein Größerzeichen und der Cursor. Mit 
sofortigem <RETURN> bestimmt der Computer den neu¬ 
en Namen. Ansonsten können Sie den neuen Namen ein- 
geben. Sollte der eingegebene Variablenname schon be¬ 
nutzt worden sein, wird die Meldung SCI ION VORI1AN- 
DEN, TROTZDEM UMBENENNEN? ausgegeben. 
Durch Betätigung der <RETURN>-Taste wird die Varia¬ 
ble umbenannt. Andernfalls kann der eingegebene Name 
geändert werden. 

3. Kombination von eins und zwei (nach RETURN beim 
Fragezeichen folgt der Prompt nebst Cursor) 

VARLIST. Parameter 

Gibt eine alphabetische Liste aller Variablen aus. Wurde eine 
Variable umbenannt, wird daneben der neue Name angeführt. 
Ist der Bildschirm voll, muß eine Taste gedrückt werden. Pa¬ 
rameter 1 bewirkt, daß die Liste auf dem Drucker ausgegeben 
wird. 

VARREN, neuer Variablenname, alter Variablenname 
benennt eine einzelne Variable um. Bei beiden Parametern 
kann hinter dem Namen ein Postfix (!. % und S) angegeben 
werden. Dadurch können Sie im Gegensatz zu VARPACK der 
neuen Variable einen anderen Typ zuordnen. Folgendes Pro¬ 
grammbeispiel zeigt deutlich die Auswirkung der Befehle. 


Das ursprüngliche Programm: 


10 REM Dies ist ein Beispiel fuer eine 
SpeicherplatzVerringerung 
20 PRINT "Guten Tag" 

30 INPUT "Wie geht es Ihnen";eingabeS 
40 READ ver$:IF eingabe$=ver$ THEN 40 
50 PRINT "Mir ebenfalls" 

60 END 

70 DATA gut 80 DATA schlecht 


Nach REMKILL und PACK ein Speichergewinn von 80 Byte 

10 PRINT "Guten Tag":INPUT "Wie geht es Ihnen " 

;eingabeS 

20 READ VER$:IF eingabeS ver$ THEN 20 

30 PRINT "Mir ebenfalls":END:DATA gut:DATA schlecht 


Nach DATAPACK und SPACE ein Gewinn von 9 Byte: 


10 PRINT"Guten Tag":INPUT"Wie geht es Ihnen " 
;eingabe$ 20 READ ver$:IF eingabeS 
varSTHEN 20 

30 PRINT"Mir ebenfalls":END:DATA gut, schlecht 


Nach VARPACK ein Speichergewinn von 14 Byte: 


10 PRINT"Guten Tag":INPUT"Wie geht es Ihnen ";aS 
20 READ b$:IF a$ b$THEN 20 

30 PRINT"Mir ebenfalls":END:DATA gut, schlecht 


Schließlich nach PACK mit Parameter = 1: 


10 PRINT"Guten Tag" 

20 INPUT"Wie geht es Ihnen ";a$ 
30 READ b$ 

40 IF a$ bSTHEN 30 
50 PRINT"Mir ebenfalls" 

60 END 

70 DATA gut, schlecht 


(Christian Böck/jg) 
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10 '******************************** [1285] 

20 '** B A S I C - T O O L ** [1218] 

30 '******************************** [1285] 

40 '** BY CHRISTIAN BOECK , 1988 ** [1443] 

50 '** & PC International ** [1214] 

60 '** all Rights reserved ** [1642] 

70 '******************************** [1285] 

80 MEMORY &8DFF [182] 

90 LOAD "BAS-TOOL. BIN" ,5,9700 [2031] 

100 CALL &9700 [513] 

110 MODE 2 [513] 

120 PRINT" BASIC-TOOL BY [4418] 

CHRISTIAN BOECK ,1988 INITIALIZED" 

130 NEW [318] 


Listmg 1 BAS-TOOL BAS 


10 /*************************** [1051] 

20 '** Datalader ** [441] 

30 '** BAS-TOOL.LDR ** [1674] 

40 '*************************** [1051] 

50 ' [117] 

60 MEMORY S.96FF [710] 

Listmg 2 BAS-TOOL LDR 


70 FOR X=0 TO StFOO [607] 

80 READ a$ : POKE S.9700+X, VAL( "S,"+a$) [1028] 

90 NEXT [350] 

100 SAVE"bas-tOol. bin", b, 5,9700, S.F00 [2677] 

110 END [HO] 


120 DATA 3E, CF, 32 , Dl, BC ,21, A0,82,22 , D2 , BC, [,3229] 
1,36,97,21,80,97,CD,Dl 

130 DATA BC,3E,C3,32,D1,BC,21,A7,B0,22,D2, [2117] 
BC,21,B3,99,11,A7,B0,1 

140 DATA 45,0,ED,B0,21,0,8E,22,A5,B0,3E,C9 [3702] 
32 0 97 C9 50 97 C3 

15O , DÄTA , 84^97^C3'c,9A,C3,57,9D,C3,52,A0,C [3614] 
3,Al,A1,C3,4E,98,C3,47 

160 DATA 99,C3,FE,98,52,45,4D,4B,49,4C,CC, [2782] 
50,41,43,CB,56,41,52,50 

170 DATA 41,43,CB,56,41,52,4C,49,53,D4,56, [2895] 
41,52,52,45,CE,52,53,D8 

180 DATA 44,41,54,41,50,41,43,CB,53,50,41, [2697] 
43,C5,0,52,5,0,4C,CD 

190 DATA E,A3,D8,3A,0,A6,FE,2,D2,93,A4,FE, [3167] 
0,CC,9B,A4,CD,B5,A3 

200 DATA ED,5B,4,A6,2A,2,A6,1,AB,97,CD,67, [3212] 
A3,CD,AF,A3,C3,35,A4 

210 DATA FE,C5,28,9,FE,1,C0,23,7E,2B,FE,C0 [3541] 
,C0,3A,0,A6,CB,47,C2 

220 DATA ID,98,EB,2A,C,A6,23,23,23,CD,3D,A [2142] 
5,CD,4E,A5,20,19,2A,C 

230 DATA A6,ED,4B,E,A6,9,EB,2A,1A,A6,CD,FB [2622] 
,A4,22,1A,A6,2A,C,A6 

240 DATA 2B,3E,0,C9,EB,2B,3E,0,77,23,E5,ED [4625] 
,4B,C,A6,C5,DD,El,AF 
Listmg 2 BAS TOOL.LDR 
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250 DATA ED,42,DD,75,0,DD,74,1,2A,C,A6,ED, [3027] 
4B,E,A6,9,C1,E5,AF 

260 DATA ED,42,44,4D,Dl,2A,1A,A6,CD,FB,A4, [3884] 
22,1A,A6,EB,2B,3E,0,C9 

270 DATA ED,5B,10,A6,E5,2A,C,A6,DF,E8,A5,2 [2006] 
A,FE,A5,2B,23,7E,FE,Q 

280 DATA 20,FA,2B,CB,FE,2A,FE,A5,CD,C5,A4, [3840] 
21 ,F8,99,CD,C5,A4,CD,D6 

290 DATA A4,El,CD,6,BB,FE,D,CA,CO,97,C9,CD [1176] 
,E,A3,D8,CD,9B,A4,CD 

300 DATA B5,A3,21,70,1,11,FF,FF,1,6B,98,CD [2404] 
,67,A3,CD,35,A4,DF,DC 

310 DATA A5,C9,FE,7C,CO,E5,DD,El,23,7E,FE, [2185] 
0, CO,2 3,E5,CD,D4,BC,30 

320 DATA 77,79,FE,FF,20,72,7E,FE,C3,20,6D, [3717] 
23,5E,23,56,ED,53,24,A6 

330 DATA El,CD,74,A5,13,D5,EB,AF,21,3,0,ED [1891] 
,52,B5,28,3C,22,22,A6 

340 DATA EB,2A,1A,A6,19,D5,ED,5B,12,A6,CD, [3100] 
4E,A5,Dl,DA,F8,98,2A,E 

350 DATA A6,19,EB,2A,C,A6,73,23,72,ED,53,E [2815] 
,A6,Dl,2A,1A,A6,ED,4B 

360 DATA 22,A6,CD,E1,A4,22,1A,A6,22,1C,A6, [2435] 
2 2,1E,A6,22,20,A6,18,1 

370 DATA Dl,11,20,83,DD,72,0,DD,73,1,3E,IC [4088] 
,DD,77,2,2A,24,A6,DD 

380 DATA 75,3,DD,74,4,C9,E1,3E,7C,C9,C1,C1 [3360] 
,CI,C3,Al,A4,CD,E,A3 

390 DATA D8,CD,9B,A4,3E,FF,32,0,AC,2A,2,A6 [2115] 
,E5,7E,23,B6,28,30,23 

400 DATA 5E,23,56,El,E5,D5,DF,E8,A5,2A,FE, [2325] 
A5,DF,E5,A5,B7,28,B,DF 

410 DATA F4,A5,30,6,DF,EB,A5,CD,AC,A4,Dl,2 [3585] 

A, 4,A6,CD,4E,A5,E1,CA 

420 DATA 35,A4,4E,23,46,2B,9,18,CA,El,C3,3 [2965] 
5,A4,CD,E,A3,D8,CD,9B 

430 DATA A4,CD,B5,A3,ED,5B,4,A6,2A,2,A6,1, [3158] 
61,99,CD,67,A3,C3,35 

440 DATA A4,FE,1,38,4A,20,13,23,7E,2B,FE,9 [2297] 
7,C8,FE,CO,C8,FE,8C,28 

450 DATA F,AF,32,26,A6,2F,C9,FE,8C,C0,3E,F [2929] 
F,32,26,A6,C9,3A,26,A6 

460 DATA FE,FF,20,F3,3E,2C,77,23,1,2,0,9,E [2692] 

B, 2A, 1A,A6,CD,FB,A4 

470 DATA 22,1A,A6,ED,5B,E,A6,1B,1B,2A,C,A6 [3841] 
,73,23,72,ED,53,E,A6 

480 DATA 3E,8C,C9,32,26,A6,C9,78,FE,95,DA, [3063] 
F5,99,60,69,5E,23,56,23 

490 DATA E5,2B,2B,EB,E5,AF,ED,52,ED,5B,A5, [2713] 
BO,19,EB,73,23,72,23,22 

500 DATA A5,BO,El,1,0,3,AF,ED,Bl,Dl,AF,ED, [1603] 
52,23,44,4D,EB,ED,5B 

510 DATA A5,BO,D5,ED,BO,21,4,0,19,22,A5,BO [3071] 
,EB,CI,B,B,CF,AO,82 

520 DATA 20,20,20,20,4C,4F,45,53,43,48,45, [2616] 
4E,20,BF,0,0,0,0,0 

530 DATA 0,CD,E,A3,D8,ED,5B,0,A6,7A,B3,20, [2525] 
7,11,FF,0,ED,53,0 

540 DATA A6,CD,9B,A4,21,0,0,22,24,A6,22,2D [2142] 
,A6,22,26,A6,2A,FE,A5 

550 DATA 22,28,A6,CD,B5,A3,CD,C,A4,2A,1A,A [2655] 
6 ,2B,CB,BE,2A,2,A6,CD 

560 DATA EB,9C,DD,2A,2,A6,1,75,9A,2A,2,A6, [3257] 
ED,5B,4,A6,CD,67,A3 

570 DATA 2A,1A,A6,22,1C,A6,22,1E,A6,22,20, [3774] 
A6,CD,25,A4,CD,35,A4,21 

580 DATA 70,1,11,A,0,1,A,0,DF,EE,A5,FE,Al, [1703] 
CA,DA,9A,FE,C5,CA 

590 DATA DA,9A,FE,1,DA,EA,9A,C0,23,7E,FE,C [3667] 
0,CA,DA,9A,2B,E5,CD, 3 

600 DATA 9D,3A,2D,A6,FE,0,20,1F,ED,5B,0,A6 [3069] 
,CD,4E,A5,El,CA,83,9C 

610 DATA DA,AA,9A,22,26,A6,C9,ED,5B,26,A6, [2104] 
7A,B3,CA,83,9C,EB,C3,83 

620 DATA 9C,2A,24,A6,19,ED,5B,0,A6,CD,4E,A [2216] 
5,El,CA,3E,9C,DA,CD,9A 

630 DATA 22,26,A6,C9,ED,5B,26,A6,7A,B3,CA, [3527] 
D6,9B,EB,C3,3E,9C,2A,C 

640 DATA A6,ED,5B,E,A6,3E,FF,32,2E,A6,19,2 [3477] 
B,18,4,AF,32,2E,A6,E5 

650 DATA CD,3,9D,FE,0,C2,EF,9A,3A,2A,A6,FE [3050] 
,FF,20,2B,CI,3,23,13 

660 DATA C5,E5,D5,50,59,1B,2A,1A,A6,1,1,0, [3118] 
CD,E,A5,22,1A,A6,1B 

670 DATA EB,3E,22,77,2A,C,A6,4E,23,46,3,70 [2157] 
,2B,71,ED,4 3,E,A6,Dl 

680 DATA E1,3A,2D,A6,FE,0,20,53,ED,5B,0,A6 [2664] 
,CD,4E,A5,Dl,CA,A5,9B 

690 DATA D2,49,9B,2A,26,A6,7C,B5,CA,A5,9B, [3958] 
C3,83,9C,3A,2E,A6,FE,FF 

700 DATA CA,A5,9B,22,24,A6,EB,23,7E,23,CB, [2927] 
7E,20,49,B6,CA,A5,9B,2B 

710 DATA E5,CD,EB,9C,2A,FE,A5,22,28,A6,2A, [2483] 
E,A6,22,22,A6,21,0,0 


720 DATA 22,26,A6,3E,FF,32,2D,A6,El,E5,FD, 
El,2B,AF,C9,2A,24,A6,19 

730 DATA ED,5B,0,A6,CD,4E,A5,D1,30,65,2A,2 
6,A6,7C,B5,CA,D6,9B,C3 

740 DATA 3E,9C,CI,CI,CI,CI,CI,C9,C3,Al,A4, 


2A,C,A6,ED,5B,E,A6,19 

750 DATA 7E,23,CB,BE,B6,2B,28,1E,E5,DD,El, 
E5,CD,EB,9C,AF,32,2D,A6 

760 DATA 32,2E,A6,21,0,0,22,26,A6,22,24,A6 
,2A,FE,A5,22,28,A6,El 

770 DATA 2B,AF,C9,2A,C,A6,E5,E5,DD,El,AF,3 
2,2D,A6,32,2E,A6,21,0 

780 DATA 0,22,26,A6,22,24,A6,2A,FE,A5,22,2 

8, A6,E1,2B,C9,22,24,A6 

790 DATA FD,2B,3E,1,FD,77,0,2A,C,A6,1,4,0, 

9, EB,2A,1A,A6,CD 

800 DATA FB,A4,22,1A,A6,2A,E,A6,ED,5B,22,A 
6,19,11,4,0,AF,ED,5 2 

810 DATA EB,DD,22,C,A6,DD,73,0,DD,72,1,DD, 
E5,El,ED,53,E,A6,3A 

820 DATA 2E,A6,FE,FF,CA,A5,9B,19,2B,C3,55, 
9B,AF,77,E5,2A,C,A6,2B 

830 DATA 3E,1,77,23,1,4,0,9,EB,El,CD,FB,A4 
, 23 , E5 , DD, E5 , Dl, AF 

840 DATA ED,52,EB,73,23,72,2A,C,A6,D5,ED,5 
B,E,A6,19,Dl,ED,5 3,E 

850 DATA A6,DD,22,C,A6,Dl,AF,ED,52,EB, 73,2 
3,72,23,ED,5B,10,A6,73 

860 DATA 23,72,C3,A5,9B,E5,ED,5B,1A,A6,21, 
4,0,19,ED,5B,12,A6,CD 

870 DATA 4E,A5,El,D2,9F,9C,CI,CI,CD,D6,A4, 
C3,Al,A4,AF,77,23,E5,DD 

880 DATA E5,Dl,AF,ED,52,DD,75,0,DD,74,1,Dl 
,E5,D5,1,4,0,2A,1A 

890 DATA A6,CD,E,A5,22,1A,A6,DD,El,DD,E5,2 
A,C,A6,ED,5B,E,A6,19 

900 DATA 11,4,0,19,Dl,AF,ED,52,DD,75,0,DD, 
74,1,ED,5B,10,A6,13 

910 DATA DD,73,2,DD,72,3,Dl,ED,53,E,A6,C3 , 
A5,9B,E5,2 3,7E,CB,BE 

920 DATA 23,5E,23,56,E1,F5,E5,DD,E5,DF,E8 , 
A5,DD,El,El,Fl,23,77,C9 

930 DATA AF,32,2A,A6,2A,28,A6,ED,5B,FE,A5 , 
CD,4E,A5,20,B,7E,FE,20 

940 DATA 28,3,23,18,F8,22,2B,A6,7E,FE,22,C 
A,4D,9D,FE,0,28,F,5F 

950 DATA 3A,2A,A6,FE,FF,28,24,7B,FE,3A,28, 
2,20,1D,E5,23,22,28,A6 

960 DATA 2B,ED,4B,FE,A5,ED,42,EB,El,ED,4B, 
2B,A6,ED,42,EB,C9,3A,2A 

970 DATA A6,2F,32,2A,A6,23,18,C7,28,5,FE,1 
,C2,9 3,A4,CD,E,A3,D8 

980 DATA 3A,0,A6,FE,4,D2,93,A4,21,60,60,22 
,36,A6,22,38,A6,22,3A 

990 DATA A6,21,0,8E,22,32,A6,AF,77,3E,4,6, 
1A,21,5F,A6,23,77,10 

1000 DATA FC,AF,32,31,A6,CD,B5,A3,CD,85,A2 
,CD,AC,A4,1,A6,9D,11,FF 

1010 DATA FF,21,70,1,CD,67,A3,CD,35,A4,C9, 
FE,E,DO,FE,2,D8,FE,7 

1020 DATA C8,FE,8,C8,E5,DD,El,23,23,23,22, 
26,A6,7E,DF,DF,A5,DD,6E 

1030 DATA 1,DD,66,2,9,2B,E5,FD,E1,FD,7E,0, 
CB,7F,CA,6B,9E,CB,6F 

1040 DATA CO,CB,BF,32,22,A6,FD,5E,1,FD,56, 
2,2A,26,A6,ED,53,2D,A6 

1050 DATA CD,74,A5,13,D5,E5,2A,2D,A6,CD,74 
,A5,Dl,E5,AF,ED,52,B5,28 

1060 DATA 4A, 22,34 ,A6,EB,2A,1E,A6,19 , D5 , ED 
,5B,12,A6,CD,4E,A5,Dl,DA 

1070 DATA 64,9E,2A,E,A6,19,EB,2A,C,A6,73,2 
3,72,ED,53,E,A6,El,Dl 

1080 DATA E5,2A,IE,A6,ED,4B,34,A6,CD,El ,A4 
,22,IE,A6,22,20,A6,2A,1A 

1090 DATA A6,ED,5B,34,A6,19,22,1C,A6,22,1A 
,A6,CD,B8,A4,CI,18,2,CI 

1100 DATA El,2A,2D,A6,ED,5B,26,A6,ED,BO,3A 


,22,A6,CB,BF,CB,AF,DD,77 

1110 DATA 0,AF,DD,77,1,DD,77,2,3E,D,C9,C1, 
CI,CI,CI,C3,A1,A4,3A 

1120 DATA 31,A6,FE,FF,C8,DD,7E,0,FE,5,38,E 
,DD,5E,3,CB,BB,CB,AB 

1130 DATA 16,0,21,1F,A6,19,7E,32,22,A6,2A, 
26,A6,E5,CD,C5,A4,Dl,AF 

1140 DATA ED,52,23,EB,DD,7E,0,CD,DD,A2,3E, 
A,93,FA,AA,9E,47,3E,20 

1150 DATA CD,5A,BB,10,FB,3A,0,A6,CB,47,CA, 
D7,9E,CD,78,BB,E5,21,27 

1160 DATA AO,CD,C5,A4,El,CD,75,BB,CD,6,BB, 
FE,D,28,10,3A,22,A6,CB 

1170 DATA FF,CB,EF,FD,77,0,CD,D6,A4,3E,D,C 
9,21,29,AO,CD,C5,A4,CD 

1180 DATA 7 8,BB,22,2F,A6,3A,0,A6,CB,4F,CA, 
2D,9F,2A,FE,A5,AF,77,2A 
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[4310] 

[2909] 

[4291] 

[2858] 

[2293] 

[4278] 

[3491] 

[2943] 

[3982] 

[1430] 

[2994] 

[ 2200 ] 

[1978] 

[3039] 

[3256] 

[3593] 

[ 2222 ] 

[2040] 

[2157] 

[1669] 

[2649] 

[2321] 

[2694] 

[2463] 

[2888] 

[2426] 

[4254] 

[3323] 

[2778] 

[ 2000 ] 

[3181] 

[2838] 

[3684] 

[3136] 

[3186] 

[3435] 

[3530] 

[1667] 

[3011] 

[2762] 

[3565] 

[1747] 

[3051] 

[2645] 

[2680] 

[3229] 

[2513] 
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1190 DATA 2F,A6,CD,75,BB, 2A, FE, A5 , DF,D9 , A5 [3132] 
,2A,FE,A5,7E,FE,0,CA,2D 

1200 DATA 9F,1,0,0,2A,FE,A5,7E,FE,0,28,9,C [2840] 
D,84,A5,38,DB,3,23 

1210 DATA 18,F2,79,FE,29,30,D2,ED,43,2B,A6 [3338] 
, 2B,CB,FE,3E,FF,32,28,A6 

1220 DATA C3,83,9F,AF,32,28,A6,3A,22,A6,D6 [2754] 
,2,87,5F,16,0,21,36,A6 

1230 DATA 19,E5,7E,23,46,3C,FE,7B,D4,7F,9F [3690] 
,El,77,23,70,4F,78,FE,60 

1240 DATA 28,1D,CB,F8,2A,FE,A5,71,23,70,1, [2594] 
2,0,ED,43,2B,A6,2A,2F 

1250 DATA A6,CD,75,BB,2A,FE,A5,CD,C5,A4,18 [2976] 
, 14,7 9,CB,FF,2A,FE,A5,7 7 

1260 DATA 1,1,0,ED,43,2B,A6,18,E2,3E,61,4, [3367] 
C9,ED,5B,FE,A5,2A,26 

1270 DATA A6,CD,54,A5,DA,C7,9E,CD,38,A2,30 [3879] 
,42 , CB, FE,CB,EE,3A,28,A6 

1280 DATA FE,FF,20,8D,E5,CD,78,BB,E5,21,2B [3371] 
,A0,CD,C5,A4,El,CD,75,BB 

1290 DATA CD,6,BB,F5,6,27,3E,20,CD,5A,BB,1 [3258] 
0,FB,F1,E1,FE,D,CA,Dl 

1300 DATA 9F,2A,FE,A5,ED,5B,2B,A6,19,2B,CB [4308] 
, BE,C3,FO,9E,CB,BE,CB,AE 

1310 DATA 18,19,21,0,8E,7E,FE,0,28,11,ED,5 [2272] 

B, FE,A5,CD,54,A5,30,5 

1320 DATA 21,40,A6,18,AC,23,18,EA,CD,D6,A4 [2616] 
,ED,5B,32,A6,D5,7A,FE,97 

1330 DATA 28,22,2A,FE,A5,ED,4B,2B,A6,ED,BO [1796] 
,ED,53,32,A6,EB,AF,77,Dl 

1340 DATA 3A,22,A6,CB,FF,FD,77,0,FD,73,1,F [1873] 

D, 72,2,C3,E0,9D,3E,FF 

1350 DATA 32,31,A6,C3,C7,9E,3F,AO,3E,AO,20 [3058] 
,53,43,48,4F,4E,20,56,4F 

1360 DATA 52,48,41,4E,44,45,4E,2C,20,54,52 [2673] 
,4F,54,5A,44,45,4D,20,55 

1370 DATA 4D,42,45,4E,45,4E,4E,45,4E,20,BF [2188] 
,28,5,FE,1,C2,93,A4,CD 

1380 DATA E,A3,D8,3A,0,A6,FE,1,28,10,FE,0, [1279] 
C2,93,A4,3E,2,CD,E 

1390 DATA BC,AF,21,5A,BB,18,B,CD,2E,BD,DC, [2645] 
5F,A1,3E,FF,21,9B,Al,32 

1400 DATA 42,A6,22,56,Al,22,4D,Al,22,94,Al [1799] 
,22,99,Al,22,6F,Al,AF,32 

1410 DATA 45,A6,32,47,A6,3E,40,32,43,A6,3A [3595] 
,43,A6,FE,5A,C8,3C,32,43 

1420 DATA A6,DF,DF,A5,5E,23,56,7A,B3,28,EC [2353] 
,EB,9,ED,43,24,A6,4 E,2 3 

1430 DATA 46,C5,23,E5,CD,4F,Al,23,Dl,E5,AF [3210] 

,ED,52,EB,El,7E,E5,F5,CB 

1440 DATA BF,CB,AF,CD,44,Al,Fl,El,CB,7F,28 [2671] 

,14,CB,6F,20,10,CB,BF,32 

1450 DATA 22,A6,CD,22,A1,3E,E,93,F4,6B,A1, [2708] 
18,6,3E,19,93,F4,6B,A1 

1460 DATA CI,78,Bl,28,18,3A,47,A6,3C,FE,3, [2368] 
20,7,CD,74,Al,CD,91,Al 

1470 DATA AF,32,47,A6,2A,24,A6,9,18,A8,CD, [4338] 
74,Al,CD,91,Al,CD,74,Al 

1480 DATA CD,91,Al,AF,32,47,A6,C3,9D,A0,23 [2370] 
,E5,3E,8,93,F4,6B,A1,21 

1490 DATA 6,A3,CD,4F,Al,E1,5E,23,56,62,6B, [2551] 
CD,4F,Al,AF,ED,52,23,EB 

1500 DATA 3A,22,A6,C3,44,A1,21,8,A3,6,0,4F [2322] 

,9,7 E,C 3,5A,BB,7 E,F 5 

1510 DATA CB,BF,CB,EF,CD,5A,BB,Fl,CB,7F,CO [4660] 
,23,18,F0,21,EF,A2,CD,C5 

1520 DATA A4,CD,2E,BD,38,FB,C9,47,3E,20,CD [3162] 
,0,0,10,F9,C9,3A,42,A6 

1530 DATA FE,FF,C8,3A,45,A6,3C,32,45,A6,FE [2983] 

,19,CO,AF,32,45,A6,CD,6 

1540 DATA BB,C5,CD,6C,BB,CI,C9,3E,A,CD,5A, [2400] 
BB,3E,D,C3,5A,BB,CD,2B 

1550 DATA BD,30,FB,C9,FE,2,C2,93,A4,DD,E5, [2896] 
CD,85,A2,CD,B5,A3,CD,AC 

1560 DATA A4,2A,1A,A6,22,6,A6,DD,El,DD,6E, [3157] 
0,DD,66,1,CD,FO,Al,32 

1570 DATA 22,A6,ED,5B,FE,A5,ED,BO,CD,38,A2 [3200] 

, D2,9 3 , A4 , E5 , DD, 6E, 2 , DD 

1580 DATA 66,3,DD,El,CD,FO,Al,CB,FF,DD,77, [2158] 
0,DD,75,1,DD,74,2,3E 

1590 DATA FF,32,31,A6,C3,96,9D,4E,6,0,23,5 [2749] 

E, 23,56,EB,C5,E5,41,7E 

1600 DATA CD,84,A5,30,2C,E5,21,A,A3,4F,7E, [3250] 
FE,0,CA,26,A2,B9,28,3 

1610 DATA 23,18,F4,78,FE,1,20,F,1,8,A3,AF, [3402] 
ED,42,7D,El,2B,CB,FE 

1620 DATA El,CI,B,C9,El,CI,CI,CI,C3,93,A4, [3843] 
23,10,CB,2B,CB,FE,3E,4 

1630 DATA El,CI,C9,2A,FE,A5,7E,CB,BF,CB,AF [3578] 

,DF,DF,A5,ED,43,24,A6,5E 

1640 DATA 23,56,7A,B3,C8,EB,9,4E,23,46,C5, [3305] 
23,ED,5B,FE,A5,CD,54,A5 

1650 DATA CI,38,9,78,Bl,C8,2A,24,A6,9,18,E [2731] 
8,23,7E,CB,6F,20,4,CB 

1660 DATA 7F,20,ED,CB,AF,CB,BF,FE,4,28,1,3 [3662] 

C, ED,5B,22,A6,BB,28,2 
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1670 DATA 18,DB,37,C9,DF,DC,A5,1,95,A2,21, 
70,1,11,FF,FF,CD,67,A3 

1680 DATA C9,FE,91,DO,FE,E,30,D,FE,2,D8,FE 
,7,C8,FE,8,C8,DF,E2 

1690 DATA A5,C9,FE,8E,D8,D6,8E,E5,21,EC,A2 
,16,0,5F,19,4E,El,CD,3D 

1700 DATA A5,CB,AF,5F,CD,3D,A5,FE,2D, 28,4 , 
6,1,18,8,CD,3D,A5,CB 

1710 DATA AF,93,3C,47,16,0,21,1F,A6,19,79, 
77,23,10,FC,C9,FE,5,DO 

1720 DATA 21,8,A3,4F,6,0,13,9,7E,C3,5A,BB, 
2,4,3,44,52,55,43 

1730 DATA 4B,45,52,20,42,45,52,45,49,54,4D 
,41,43,48,45,4E,20,21,Al 

1740 DATA 3E,A0,0,0,25,24,21,0,FE,0,28,IC, 
FE,1,28,1B,FE,2,28 

1750 DATA 21,FE,3,C2,93,A4,EB,DD,5E,2,DD,5 
6,3,DD,4E,4,DD,46,5 

1760 DATA 18,16,11,0,0,42,4B,21,FF,FF,11,0 
,0,18,9,21,FF,FF,DD 

1770 DATA 4E,2,DD,46,3,ED,43,0,A6,E5,CD,21 
,A5,22,2,A6,Dl,CD,21 

1780 DATA A5,23,23,5E,23,56,ED,53,4,A6,CD, 
AC,A4,2A,1A,A6,22,6,A6 

1790 DATA AF,C9,ED,53,8,A6,ED,43,A,A6,22 ,C 
,A6,4E,23,46,AF,CB,B8 

1800 DATA ED,43,E,A6,79,B0,C8,23,5E,23,56, 
ED,53,10,A6,E5,CD,3D,A5 

1810 DATA ED,4B,A,A6,CD,AD,A3,FE,0,28,6 , El 
,DF,Fl,A5,18,EB,Dl,23 

1820 DATA E5,2A,8,A6,ED,5B,10,A6,CD,4E, A5 , 
E1,C8,18,C2,C5,C9,AF,32 

1830 DATA 22 , A6,18 , C , 2A, FA, A5,7E, FE, 0 , C8,3' 
E,FF,32,22,A6,1,D3,A3 

1840 DATA 21,70,1,11,FF,FF,CD,67,A3,2A,FA, 
A5,AF,77,C9,CD,E4,A3,23 

1850 DATA 23,5E,DD,73,1,23,56,DD,72,2,3E,1 
E,C9,FE,IE,28,9,FE,ID 

1860 DATA 28,2,C1,C9,6,1E,70,E5,DD,El,DD,6 
E,1,DD,66,2,FE,1D,28 

1870 DATA C,3A,22,A6,FE,FF,28,E7,EB,CD,21, 
A5,2B,23,C9,AF, 32,22, A6 

1880 DATA 1,IC,A4,21,70,1,11,FF,FF,C3,67,A 
3,CD,E4,A3,23,CB,FE,3E 

1890 DATA 1,C9,21,70,1,4E,23,46,CB,B8,70,7 
8,Bl,2B,C8,9,18,F3,CD 

1900 DATA D6,A4,2A,6,A6,E5,11,6F,1,AF,ED,5 
2,DF,F7,A5,3E,2 0,CD,5A 

1910 DATA BB,3E,F3,CD,5A,BB,3E,20,CD,5A,BB 
,2A,1A,A6,11,6F,1,AF,ED 

1920 DATA 52,DF,F7,A5,21,D7,A5,CD,C5,A4,Dl 
,2A,1A,A6,AF,ED,52,CD,48 

1930 DATA A5,FE,FF,20,F,3E,2D,CD,5A,BB,EB, 
21,FF,FF,AF,ED,5 2,2 3,18 

1940 DATA 5,3E,2B,CD,5A,BB,DF,F7,A5,3E,29 , 
CD, 5A, BB, C3 , B8 , A4,21, AO 

1950 DATA A5,CD,C5,A4,37,C9,21,AB,A5,C3,C5 
,A4,CD,D6,A4,21,CC,A5,CD 

1960 DATA C5,A4,37,C9,2A,FC,A5,11,12,A6,1, 
10,0,ED,BO,C9,21,12,A6 

1970 DATA ED,5B,FC,A5,1,10,0,ED,BO,C9,7E,C 
B,7F,20,6,CD,5A,BB,2 3 

1980 DATA 18,F5,CB,BF,CD,5A,BB,C9,3E,D,CD, 
5A,BB,3E,A,CD,5A,BB,C9 

1990 DATA E5,60,69,CD,48,A5,El,FE,FF,CA,FO 
,A4,C3,E,A5,E5,AF,21,FF 

2000 DATA FF,ED,42,23,44,4D,El,AF,ED,52,23 
,E5,D5,EB,ED,42,EB,El,CI 

2010 DATA D5,ED,BO,1B,EB,Dl,C9,AF,E5,ED,52 
, 23 , Dl,EB,E5,9,42,4B, EB 

2020 DATA El,D5,ED,B8,13,El,C9,21,70,1,4E, 
23,46,2B,CB,B8,78,B1,C8 

2030 DATA E5,23,23,7E,23,66,6F,CD,4E,A5,El 
,C8,D8,9,18,E7,23,7E,FE 

2040 DATA 20,28,FA,FE,1,DO,B7,C9,7C,87,9F, 
D8,3C,C9,7A,BC,CO,7B,BD 

2050 DATA C9,E,FF,46,CB,A8,1A,CB,AF,B8,C4 , 
71,A5,CB,78,20,4,23,13 

2060 DATA 18,EE,79,FE,FF,28,2,AF,C9,37,C9, 
E,0,C9,E5,11,1,0,7E 

2070 DATA CB,7F,20,4,23,13,18,F7,EB,CI,C9, 
FE,30,38,16,FE,7B,30,12 

2080 DATA FE,3A,38,4,FE,41,38,A,FE,5B,38,4 
,FE,61,38,2,AF,C9,37 

2090 DATA C9,46,45,48,4C,45,49,4E,47,41,42 
,C5,42,49,54,54,45,20,57 
2100 DATA 41,52,54,45,4E,2C,20,42,41,53,49 
,43,2D,54,4F,4F,4C,20,41 

2110 DATA 52,42,45,49,54,45,D4,4D,45,4D,4F 
,52,59,20,46,55,4C,CC,20 

2120 DATA A8,5E,BD,FF,33,CI,FD,19,D6,FD,EC 
,D6,FD,4D,DE,FD,54,E2,FD 

2130 DATA A5,E7,FD,D3,E8,FD,FD,E9,FD,CF,EE 
,FD,44,EF,FD,21,AE,5E,AE 
2140 DATA 8A,AC,0, 
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[3857] 
[2887] 
[1777] 
[3713] 
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6/7’91 PC 85 






[~Tips & Tricks 


jt$i 


100 DM 

für 1 kßyte 

Die nicht zu 
verachtenden 
Kleinigkeiten 


t r. 


Die kleinen Dinge sind es, die uns im Leben besonders 
Freude bereiten. Das beweisen auch einmal wieder die 
Programme in unserer Rubrik. 


Krypt 

Das Programm KRYPT dient zum Codieren beziehungsweise 
Dechiffrieren von ASClI-Dateien, die mit Context oder ande¬ 
ren Text Verarbeitungssystemen erstellt worden sind. KRYPT 
ist zwar nicht das erste Programm dieser Art in dieser Rubrik, 
aber das erste, das kein Codewort oder ähnliches zum Ver¬ 
schlüsseln benutzt. 

KRYPT codiert ein Zeichen nicht nur nach dessen ASCII- 
Wert, sondern auch nach der Position im Text, die das Zeichen 
einnimmt. So wird ohne großen Aufwand bei der Anwendung 
eine sehr effektive Datensicherung erreicht. Außerdem hat 
diese Methode den Vorteil, daß man kein Schlüsselwort ein¬ 
geben muß. Das hat man sowieso längst vergessen, wenn man 
den Text dechiffrieren will. 

Nach dem Start fordert KRYPT Sie auf. eine Diskette einzu¬ 
legen. Nach einem Tastendruck zeigt KRYPT das Directory 
der Diskette und fragt nach dem Text, der codiert oder dechif¬ 
friert werden soll. Nach dieser Eingabe will KRYPT wissen, 
unter welchem Namen der bearbeitete Text abgespeichert 
werden soll. 

Letztendlich müssen Sie noch eingeben, ob Sie den Text co¬ 
dieren oder dechiffrieren wollen. Dann macht KRYPT sich an 
die Arbeit, wobei zur Kontrolle das jeweilige Arbeitsergebnis 
auf dem Bildschirm ausgegeben wird. Nach Beendigung des 
Codicrens oder Dechiffrierens wird das Programm automa¬ 
tisch neu gestartet. KRYPT funktioniert auf allen CPCs. 

(Marc Gerges/jg) 


Symbol Editor 

Mit diesem Programm, welches auf dem CPC 664 und dem 
CPC6128 läuft, können Sie Symbole zur Verschönerung Ihrer 
Programme definieren. Zwar ist es nicht sehr komfortabel, 
was bei der Größe des Programms nicht verwunderlich ist, hat 
aber auch seine Vorteile. So kann es je nach Belieben verän¬ 
dert und erweitert werden. 

Nachdem Sie das Programm gestartet haben, wird auf dem 
Bildschirm ein Arbeitsfenster abgebildet. Innerhalb dieses 
Fensters ist es Ihnen nun möglich, in vergrößerter Form ein 
Zeichen zu entwickeln. Mit Hilfe der Cursor-Tasten bewegen 
Sie den Cursor auf die Position, auf der ein Punkt gesetzt 
werden soll. Mit Betätigung der <COPY>-Taste wird dieser 
dargestellt. Bei nochmaligem Tastendruck wird der Punkt 
wieder gelöscht. 

Während Sie Ihr Zeichen entwerfen, haben Sie ständig die 
Möglichkeit, die Form zu kontrollieren. Dazu wird das Sym¬ 
bol rechts neben dem Editorfenster in Originalgröße darge¬ 
stellt. 

Ist Ihr Zeichen fertig, betätigen Sie die <RETURN>-Taste. 
Jetzt benötigt der Rechner einige Zeit, um entsprechende Zah- 
lenwerte zu ermitteln. Nun werden Sie noch nach dem ASCII- 
Code gefragt, für den das Zeichen stehen soll. Anschließend 
erfolgt die Ausgabe des SYMBOL-Befehls mit den entspre¬ 
chenden Parametern. Diesen Befehl können Sie dann in dieser 
Form in Ihr BASIC-Programm einbauen. 

(Christian Stengel/jg) 

Byte Jack Pot 


Das Programm ist eine Adaption des bekannten Automaten- 
spiels. Es läuft auf allen CPCs. Nach dem Start erscheint die 
Spieloberfläche. In deren unteren Hälfte wird eine Tabelle der 
Gewinnchancen abgebildet. Zu Beginn des Spiels haben Sie 
einen Kredit von zwanzig Dollar zur Verfügung. Um den Au¬ 
tomaten zu starten, geben Sie einfach einen Geldbetrag zwi¬ 
schen einem und neun Dollar ein. Das Ende des Spiels ist 
erreicht, wenn Sie Ihren Kredit aufgebraucht haben. 

(Petr Potuznik/jg) 


DART-Zählprogramm DZP 

Das Programm DZP erleichtert die Schriftführung beim 
DART-Spiel. Es läuft auf allen CPC-Typen. Mit diesem Pro¬ 
gramm gibt es kein lästiges Kopfrechnen mehr, um die gewor¬ 
fene Punktzahl abzuziehen. Nach der Eingabe der Startpunkt- 
zahl (Normal 301) und der Anzahl der Spieler kann es losge¬ 
hen. Bei einer dreistelligen Startzahl können sechs Spieler und 
bei einer vierstelligen Startzahl immerhin noch fünf Spieler 
um die Wette werfen. 

Das Programm fragt nun nach der Punktzahl des jeweiligen 
Spielers. Sowohl die geworfene Punktzahl als auch die neue 
Gesamtwurfzahl werden angegeben. Ist die Wurfzahl höher 
als die Gesamtpunktzahl, ertönt ein Signal und der Rechner 
subtrahiert nicht, zeigt aber die geworfene Punktzahl an. So¬ 
bald ein Spieler die Null erreicht hat, wird dies mitgeteilt, und 
der Sieger steht fest. Auf Tastendruck kann nun ein neues 
Spiel begonnen werden. 

(Holger Peters/jg) 


SCR-PART 


Dieses Programm funktioniert auf allen CPC-Typen. Zu Be¬ 
ginn geben Sie den Namen und den Modus des zu bearbeiten¬ 
den Bildes ein. Danach erscheint das Bild auf dem Bildschirm 
zusammen mit einem Rechteck, das sich in der unteren, linken 
Ecke befindet. Die durch das Rechteck eingeschlossene Flä¬ 
che stellt die Arbeitsfläche dar, die Sie durch nachfolgend 
beschriebene Funktionen beeinflussen können. Mit Hilfe der 
Cursor-Tasten ist es möglich, das Fenster zu bewegen. Falls 
Sie die Höhe oder Breite des Rechtecks verändern wollen, 
drücken Sie einfach die Leertaste. Danach bestimmen Sie mit 
den Cursor-Tasten die Größe, und nicht mehr die Position des 
Ausschnitts. Ein weiteres Drücken der Leertaste schaltet wie¬ 
der auf die Positionsänderung um. 

Mit den Tasten <s>, <1>, <o>, <i>, <c> und <f> ist es nun 
möglich, den gewählten Bildausschnitt zu bearbeiten. Hier die 
einzelnen Tasten und ihre Wirkungsweise: 
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Tips & Tricks—i 


<i>- lädt den im Rechteck befindlichen Teil in den Speicher 

<o> - lädt den Speicher in das Rechteck. Hierbei sollte das 
Rechteck genau die Größe des im Speicher befindlichen Teils 
haben (Drücken der Taste <(>), da es sonst zu sehr wunderli¬ 
chen Ergebnissen kommen kann. 

<f> - paßt das Rechteck an die Größe des im Speicher befind¬ 
lichen Teils an - lädt einen Bildteil von der Diskette in den 
Speicher 

<s> - speichert den Rechteckausschnitt auf Diskette 
<c> - speichert das gesamte Bild auf Diskette 

Mit Hilfe dieses Programms ist es also möglich. Teile aus 
anderen Bildern in eigene einzubauen oder Teile von Bildern 
zu verschieben und vieles mehr. In der vorliegenden Form des 
Programms können nur Bilder mit anderen Bildteilen Uber¬ 
schrieben werden. Durch eine kleine Änderung lassen sich die 
überlagernden Teile aber auch kombinieren. 

Dies geschieht durch Anhängen der Verknüpfungsbefehle 
AND, OR und XOR, in Verbindung mit einer Zahl oder des 
Befehls PEEK(d%), an das Ende der Zeile 100. So lassen sich 
die beiden sich überlagernden Teile verbinden (wenn 
PEEK(d%) verwendet wird) oder der überschreibende Teil 
wird verändert (bei Verwendung einer Zahl). Beispielsweise 
wird ein Ausschnitt transparent über ein Bild gelegt, wenn 
man die Zeile 100 folgendermaßen erweitert: 

100 ...ELSE POKE d%, PEEK (n ) XOR PEEK (d's ) 

(Erik Reinsch/jg) 


BALL 


Nach Starten des Programms geben Sie den Namen und den 
Bildschirmmodus eines gespeicherten Bildes ein. Dieses Bild 
wird dann geladen und vom Programm bearbeitet. Die Ar¬ 
beitsweise des Programms läßt sich direkt verfolgen, da die 
Veränderungen original im Bildschirmspeicher eifolgen. 
Nach erfolgreicher Umwandlung sehen Sie das Bild als Pro¬ 
jektion auf einer Kugel. Das neue Bild wird dann unter dem 
alten Namen, aber mit der Extension KGL abgespeichert. Die¬ 
se kleine Spielerei steht Ihnen für alle CPC-Rechner zur Ver¬ 
fügung. 

(Erik Reinsch/jg) 




Für 464-664-6128 

I 



1 MODE 2:PRINT"Diskette einlegen":CALL &BB [11175] 
06:CAT:INPUT"Name Quelldatei:",nl$:INPUT"N 

ante Zieldatei :",n2$:PRINT"1)Codieren":PRI 
NT"2)Dechiffrieren":INPUT w:i=1000:DIM z$( 
i) : ON w GOTO 2,4 

2 OPENIN nl$:i=l:WHILE NOT EOF:LINE INPUT# [5953] 

9,z$(i):FOR a=l TO LEN(z$(i)):a$=MID$(z$(i 

),a,l):b=ASC(a$)+a:IF b>255 THEN b=b-255 

3 MID$(z$(i),a,1)=CHR$ (b) :NEXT:PRINT z$(i) [6914] 
:i=i+l:WEND:CLOSEIN:OPENOUT n2$:FOR a=l TO 

i-1:PRINT#9,z$(a):NEXT:CLOSEOUT:RUN 

4 OPENIN nl$:i=l:WHILE NOT EOF:LINE INPUT# [8799] 

9,z$(i):FOR a=LEN(zS(i)) TO 1 STEP-l:a$=MI 

D$(z$(i),a,1):b=ASC(a$)-a:IF b<0 THEN b=b+ 

255 

5 MID$(z$(i), a, 1)=CHR$(b):NEXT:PRINT z$(i) [6942] 
:i=i+l:WEND:OPENOUT n2$:FOR a=l TO i-1:PRI 

NT#9,z$(a):NEXT:CLOSEOUT:RUN 


Listing KRYPTBAS 



Die verlassene Stadt von EM ERG EN CY 


EMERGENCY 


!!!!ALARM!!!! Sie als Kapitän des Raumschiffs ENTER¬ 
PRISE bekommen gerade die Meldung, daß beim Erforschen 
der gebirgigen Obeifläche des noch relativ unbekannten Pla¬ 
neten PROXIMA 4-712Y ein Meteorit den Treibstofftank be¬ 
schädigt hat. Es gibt nur einen Ausweg - eine geeignete Lan¬ 
debahn zu finden, bevor der Tank völlig ausläuft. Doch un¬ 
glücklicherweise reicht der Treibstoff nur noch bis zu einer 
verlassenen Ruinenstadt. 


Ihre Aufgabe ist es nun. mit Bomben gezielt die Gebäude der 
Stadt zu zerstören, um sich eine Landebahn zu schaffen. Dabei 
fliegt Ihr Raumschiff von links nach rechts über den Bild¬ 
schirm und verliert ständig an Höhe. Mit der <SPACE>-TA- 
STE können Sie unbegrenzt Bomben abwerfen, aber immer 
nur eine! Es ist ratsam, immer die höchsten Gebäude zu bom¬ 
bardieren, sonst kommt es unweigerlich zur Kollision. Sind 
Sie sicher gelandet, kommt der nächste Level, aber mit dem 
Unterschied, daß Ihr Raumschiff noch schneller sinkt. Dieses 
Geschicklichkeitsspiel können Sie auf allen CPCs spielen. 


(Mike Hesser/jg) 


für 464-664-6128 


10 ' DART [345] 

20 MODE 1:INK 1,25:INK 2,24:INK 3,26:BORDE [2345] 
R 0:INK 0,0 

30 LOCATE l,10:a=-2:wi=0:spz=0:anz=0 [1425] 

40 INPUT"Startzahl (z.B. 301) ";spz [1480] 

50 LOCATE 1,12 [724] 

60 INPUT"Spieleranzahl (1-5/6)";anz [2823] 

70 IF anz>6 THEN 60 [1148] 

80 FOR i=l TO anz:wurf(i)=0:spz(i)=0:NEXT [2349] 
90 CLS:FOR i=l TO anz:LOCATE 6*i,3:PRINT s [2653] 
pz:NEXT 

100 FOR i=l TO anz:spz(i)=spz:NEXT [1359] 

110 a=a+3 [723] 

120 FOR i=l TO anz [856] 

130 LOCATE 16,1:PRINT" 11 :LOCATE 1, [2228] 

1:PEN 1:PRINT "Wurf Spieler"i"INPUT wi 
140 IF wi>spz(i) THEN PRINT CHR$(7):GOTO 1 [2087] 
60 

150 spz(i)=spz(i)-wi [1300] 

160 LOCATE 6*i,3+a:PEN 2:PRINT wi [1419] 

170 IF i=anz THEN IF 3+a>20 THEN FOR a=l T [6224] 
O 1500:NEXT:CLS:a=-2:FOR i=l TO anz-l:LOCA 
TE 6*i,3:PEN 3:PRINT spz(i):NEXT 


Listing DZPBAS 
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I—Tips & Tricks 



1 ' (c) 1990 by Christian Stengel [1140] 

2 ' [117] 

10 z$=CHR$(143):b$=CHR$(127):MODE l:f=2:g= [4874] 
2:a=2:b=2:INK 0,0:BORDER 0 

20 PLOT 15,385,1:DRAW 8*16+16,385:DRAW 8*1 [4416] 
6+16,385-8*16-2:DRAW 15,385-8*16-2:DRAW 15 
,385 

30 CALL &BB06:a=a+INKEY(1)-INKEY(8):b=b+IN [3798] 
KEY(2)-INKEY(0) 

40 IF a>9 THEN a=2 ELSE IF a<2 THEN a=9 [2226] 

50 IF b>9 THEN b=2 ELSE IF b<2 THEN b=9 [2613] 

60 IF INKEY(18)=0 THEN GOTO 90 ELSE IF INK [1870] 

EY(9)=0 THEN GOSUB 80 

70 LOCATE f,g:PRINT a$:LOCATE a,b:a$=COPYC [4945] 
HRS(# 0) :LOCATE a,b:PRINT bS;:f=a:g=b:GOTO 
30 

80 IF a$=z$ THEN a$ = " ":PLOT a*2+20*16-3,- [6003] 
b*2+399+3,0:RETURN:ELSE a$=zS:PLOT a*2+20* 

16-3,-b*2+399+3,1:RETURN 

90 FOR b=0 TO 7:F=0:FOR a=7 TO 0 STEP -1:L [6648] 
OCATE a+2 ,b+2 : IF COPYCHR$ ( #0 ) =Z$ THEN Z.(b) 

=z(b)+2 A F ELSE z(b)=z(b)+0 

100 f=f+1:NEXT a,b [789] 

110 LOCATE 5,14:INPUT " Welchs Symbol :",d [7594] 
:LOCATE 5,20:PRINT "SYMBOL &"HEX$(D,2)",&" 

;:FOR a=0 TO 6:PRINT HEX$(z(a),2)",&";:NEX 
T:PRINT HEX$(z(a),2) 

Lisling EDITOR.BAS 


42)+CHR$(243)+"sl ioffc",INKEYS):GOSUB 50 
:ON t%\2 GOSUB 30,40,80,70,90,120,80:GOSUB 
50:GOTO 20 

30 y%=MIN(400-f%,ABS(y%+80-32*t%)):RETURN [2253] 
40 x%=MIN(640-w%,ABS(x%-72+16*t%)):RETURN [2738] 
50 IF p% THEN h%=y%:l%=x%:f%=i%:w%=r% ELSE [2810] 
r%=x%:i%=y%:f%=h%:w%=l% 

60 MOVE r%,i%:DRAWR 1%,0:DRAWR 0,h%:DRAWR- [3888] 
1%,0:DRAWR 0,-h%:RETURN 

70 p%=l-p%:y%=f%:x%=w%:RETURN [1828] 

80 CALL &BC06,&40:CLS:INPUT"Name";nS:CALL [9823] 
&BC06,SCO:IF t%=14 THEN SAVE n$,b,&C000,&4 
000:RETURN ELSE IF t%=6 THEN GOSUB 90:SAVE 
n$,b,S4000,n%-&4000:RETURN ELSE LOAD n$,S 
4000:RETURN 

90 IF t%<ll THEN POKE S.4000,1%\8 : POKE &400 [1876] 
1,h%\l6 

100 n%=&4002:FOR b%=l TO h%\16:FOR a%=0 TO [8845] 
7:FOR c%=0 TO 1%\8-1:d%=&C780+a%*2048+b%* 

80-(i%+h%)*5+c%+r%\8:IF t%<ll THEN POKE n% 

,PEEK(d%) ELSE POKE d%,PEEK(n%) 

110 n%=n%+l:NEXT:NEXT:NEXT:RETURN [3018] 

120 p%=0:1%=PEEK(&4000)*8:h%=PEEK(&4001)*1 [3531] 
6:RETURN 

Listmg SCR PART BAS 


für 464-664-6128 



10 INPUT"Name'!;n$:INPUT"Mode";m:MODE m:LOA [4458] 

D n$,&C000:s=4/2 A m:ORIGIN 320,0 

20 FOR X=1 TO 200 STEP s:r=20000/x+x/2:FOR [4199] 
y=0 TO 198 STEP 2:c=CINT(-r+x+(r A 2-(y-200 

) A 2 ) A (1/2)) 

21 IF c<>x THEN ql=TEST(x,y):wl=TEST(-x,y) [11311] 
:q2=TEST(x,400-y):w2=TEST(-x,400-y):PLOT x 

,y,0:PLOT-X,y:PLOT x,400-y:PLOT-x,4 00-y:PL 
OT c,y, ql: PLOT-c, y, wl: PLOT c, 400-y ,q2 : PLOT 
-c,400-y,w2 

30 NEXT y,x:ORIGIN 0,0:FOR a=0 TO 120:PLOT [5893] 
a,0,0:DRAWR 0,400:PLOT 521+a,0:DRAWR 0,40 
0: NEXT 

40 SAVE LEFTS(n$+".",INSTR(n$+".","."))+"K [2835] 
GL",b,&C000,&4000 

Lisling BALL BAS 


für 464-664-6128 


i 


10 MODE 0:PRINT " 1 KiloByte Jack Pot":PAP [13244] 
ER #4,7:PEN #4,0:WINDOW #4,2,20,3,13:CLS # 

4:FOR i=l TO 3:PAPER #i,ll:WINDOW #i,i*6-3 
,i*6+l,5,9:CLS #i:WINDOW #i,i*6-2,i*6,7,8: 

NEXT 

20 DIM c(3),c$(4):r=20:c$(l)=CHR$(15)+CHR$ [8851] 

(4)+STRINGS(3,228):C$(2)=CHR$(15)+CHR$(13) 

+CHR$(224)+" "+CHRS(224):c$(3)=CHR$(15)+CH 
R$(6)+"BAR":C$(4)=CHR$(15)+CHRS(14)+".7." 

30 LOCATE 3,16:PRINT c$(4);CHRS(15)+CHR$(3 [15251] 
);" ??? ??? X 2":FOR i=l TO 4:LOCATE 3,16 
+2*i:PRINT c$(i);" ";c$(i);" ";c$(i);CHR$( 

15)+CHR$(3);" x";5*i-2*(i=4):NEXT:LOCATE 
#4,5,9:PRINT #4,"Bet: $"," Credit: $" 

40 LOCATE #4,12,10:PRINT #4,r:LOCATE #4,13 [2636] 

,9:PRINT #4,"?" 

50 b=VAL(INKEYS):IF b<l THEN 50 ELSE r=r-b [9757] 

:IF r>-l THEN LOCATE #4,12,10:PRINT#4,r:LO 
CATE #4,12,9:PRINT #4,b ELSE r=r+b:GOTO 50 
60 SOUND 129,2000,2000,10,,,2:FOR Z=1 TO 3 [15614] 
0:a=l-(z>ll)-(z>21):FOR i=a TO 3:c(i)=INT( 

RND*3.7)+1:PRINT #i,c$(c(i)):NEXT:NEXT:SOU 
ND 129,0,0,0:v=b*5*c(l)*(c(l)=c(2))*(c(2)= 
c(3))-2*b*(c(i)=4):FOR i=l TO v:r=r+l:LOCA 
TE #4,12,10:PRINT #4,r;CHR$(7):NEXT 
70 IF r>0 THEN 40 ELSE PRINT CHR$(30);"No [4500] 
Credit,Game Over." 

Listmg JACK BAS 



für 464-664-6128 


10 MEMORY &3999:INPUT"Name,Mode";nS,m%:MOD [4894] 
E m%:LOAD n$,&COOO:1%=80:h%=80:PRINT CHR$( 

23)CHR$(1):GOSUB 50 

20 t%=INSTR("-"+CHRS(240)+CHR$(241)+CHRS(2 [7565] 

Listmg SCR-PART BAS 


für 464-664-6128 


10 MODE 1:INK 0,0:BORDER 0:INK 3,ll:w=110: 
h=5 

20 SYMBOL 250,7,56,64,169,64,127,31:SYMBOL 
251,224,28,2,149,1,254,248 
30 SYMBOL 240,254,146,254,146,254,146,254, 
146 

40 MODE l:LOCATE 1,1:PRINT"SCOREsc:LOCA 
TE 1,25:PRINT STRINGS(40,207);:PEN 3 
50 FOR n=2 TO 40:FOR y=0 TO RND*h+2 
60 LOCATE n,24-y:PRINT CHRS(240); 

70 NEXT:NEXT:x=l:y=2:f=l:PEN 1 

80 LOCATE x,y:PRINT CHR$(8);" "CHR$(250);C 

HRS(251):x=x+l:IF x>40 THEN x=l:y=y+l 

90 IF y=24 AND X=15 THEN LOCATE 17,12:PRIN 

T CHRS(24);"GESCHAFFT!";CHRS(24):FOR t=l T 

0 1500:NEXT:w=w-5:h=h+l:GOTO 40 

100 SOUND 1,2300,18:SOUND 2,2298,18 

110 IF TEST(x*16+8,410-y*16)THEN SOUND 1,1 

000,50,,,,15:LOCATE x,y:PRINT CHR$(8);" "C 

HRS(238):GOTO 180 

120 IF NOT INKEY(47)AND f THEN a=x:b=y+l:f 
=0:z=7 

130 IF f=l THEN FOR i=l TO w:NEXT:GOTO 80 

140 LOCATE a,b:PRINT " ":b=b+l 

150 IF TEST(a*l6-8,402-b*16)=3 THEN z=z-l : 

sc=sc+l:LOCATE 7,1:PRINT sc 

160 LOCATE a,b:IF z=0 OR b=25 THEN f=l:PRI 

NT CHRS(11);" ";:GOTO 80 

170 PRINT CHRS(252);:FOR i=l TO w/2:NEXT:G 
OTO 80 

180 LOCATE 17,12:PRINT CHRS(24);"SCHADE!"; 
CHRS(24):LOCATE 14,14:PRINT"Nochmal (j/n)? 

11 

190 a$=UPPER$ (INKEYS ) :IF a$o"J"AND a$<>"N 
"THEN 190 

200 IF a$="J"THEN RUN 

Listmg EMERGENC BAS 



[2811] 

[3958] 

[2958] 

[4459] 

[1702] 

[2093] 

[ 1001 ] 

[4982] 

[6174] 


[2823] 

[5227] 


[2871] 

[2604] 

[1180] 

[4423] 

[3548] 

[3295] 

[4321] 

[1760] 

[1066] 


88 PC 6/7’91 























CPC + Joyce 


DD1 (inkl. Contr.).398, 

Ein Muß für jeden CPC 464 -Besitzer 
Controller (auch einzeln erhältlich) 198,- 

FDl (2.-Laulwerk CPC) 3' 198,' 

Achtungl Läuft am CPC 464 nur mit Contr. 
Kabel lOr FDl notig für 6128/664 48,- 

FD4 (2. EmbauLaufw. Joyce) 3* 398, 


dBaseil CPC / PCW.148,- 

Wordstar 3 0 CPC / PCW. 99,- 

! Multiplan CPC / PCW.99,-/148,- 

Baslc/Assembler CPC / PCW . 99,-/148,- 

(«Oe Progfifwia InU deutschem Handbuch) 

Super II 

dBaseil. Wordstar. Multiplan auch m Paket 

erhältlich..... nur 298.- 

Handbuch auch einzeln erhältlich 49,- 


EASIART + Trackerball.198,- 

Zeichnen und Konstruieren ml dem Marconi 
Trackerball und dem Grafikprogramm EASIART 
Unschlagbar in Kombination mt StopPress II 

EASIART« Trackerball +StopPress .. 348,- 

EASIART Softw. u. Handb.78,- 

Maus Paket inkl. EASIART...149,- 




PLZ. Ort: 


Telefon-Nr, Datum: 
Mein Computersystem: 


Kart-Heinz Weeske 
Potsdamer Ring 10 
D-7150 Backnang 

Krttfssparkasse BK • BLZ (60250020) 
74397* PostgiroStgt. 83326-707 


64 KB CPC (inkl. Software) .149, 

128 KB CPC, nicht tür 6128 (inkl Software) 198, 

! 256 KB CPC (Inkl. Software) .269, 

512 KB CPC (Inkl. Software) ..,..419, 

Aufpreis Software als EPROM.49, 

20 MB Festplatte CPC._......_...1100. 

(Info anfordem I!) 

256 KB Joyce (mft Einbauanleitung) .... 98. 


Amor: 

Amor C cpc 6i28 225.- 

Prowort..... 198.- 

Protext 3*.98.- 

Protext Eprom.124,- 

MAXAM 3-. 94.- 

MAXAM Eprom.124.- 

MAXAM II..239.- 

Prospell dtsch. 79.- 

STAR DIVISION: 

Star Wnter I.98,- 

Oatei-Star . 98.- 

Statistic-Star_ 98.- 

FibuStar Pius CPC .298.- 

CPC-Knüller: 

ROMBOX CPC.118.- 

MICA CPC. 98.- 

Terminalstar3'.29,80 

Mini Office II3-.98.- 

Dart-Scanner (+) .... 249.- 
Vkfeodigitizer (♦) .348.- 

Turbo Pascal 3 0.225,- 

(«lAOaplar k> CPC 6128 39,- 
Supercalc nur 6128. 59,80 
HiSoft Pascal 

Kas. / 3-.39.80 / 59,80 

Assentiie' 

Kas / 3*.39.80 r 59.80 

Terramaster • Erdkunde 

Kas./3‘. 49.— / 59,- 

Mastercopy. das 3"-CPC 

Kopierprogramm. 65.- 

Supercopy.65.- 


BTX CPC: 

BTX Modul.198.- 

, (Anedil an DBT03 od Modem) 

, BTX SofMrare Dekoder.99.- 

Kassettensoftware: 

Easi-Topcalc Kas.29,80 

Basic Lehrbuch Kass. 29,80 
Mini Office II Kas.49,- 

Adventures CPC 

j (t- Text, g- Grafik) 

Diamant von Rabenfels (g) 
Drachenland (t) 

Reise durch die Zeit (t) 
Sherlock Holmes (g. nur 3") 
Auftrag in der Bronx (g) 

Insel der Smaragde (t) 
Pharaonengrab (t) 

je 3" Diskette.„. 38,- 

je Kassette.28,- 

Spiele, Relaxing: 

Sorcery Plus (3").30,- 

Cyrus II Chess (3").49,- 

Flugsimulator (3").38,- 


Slud Poker.20,- 

Flugslmulator.28,- 

Manic Miner.20,- 

Thorr 1+2+3.je 20,- 

Spiele Sonderpreise: 
Kassetten.20,- 

DATENREM .68.- 

TEXTKING.78.- 


COMFORM .48,- 

FIBUCOMP.98.- 

PROFIREM.138,- 

Graflk Knüller: 

Maus Paket 

Inkl. Easiart.149,- 

AMX Maus 

mit Graliksoftware ...248,- 
StopPrese, das 

DTP Programm.178,- 

StopPress + 

AMX Maus.298,- 

zu StopPress CPC: 

Fonts + Clipsrt.129,- 

Vokabe/Verbentrainer 59,- 
Handbücher Deutsch 
für_CPC; 

Mini Office II.„...29.8C 

AMX-Maus CPC.29,8C 

StopPress CPC.19.8C 

dktronlcs Erw.19,80 

Protext.19,80 

MAXAM.19,80 

Supercalc.19,80 

6128 deutsch.68,- 

464 deutsch .„..48,- 

fwr J oyc e; 

AMX-Maus Joyce.19,80 

Mini Office Prof.29,80 

StopPress Joyce.19,80 

Desktop Publisher.19,80 

MICA.39,- 

LocoScrpt2dt.59,- 

LocoFiiedl.„...59.- 

LocoSpeildt . 59.- 


Diverses: 

Datenrekorder + Kab. 98,- 
Monitorverlängerung: 

464 / 6128 . 24,50 / 29,80 

Traktor NLO 401 .58,- 

Druckerverlängerung: 
für Joyce (2 Kabel).... 58,- 
Margin Maker, die Joyce - 
Paplerführung.39,- 

Joysticks 

Competition pro.39,80 

Quickshot II.19,80 

Joystickadapter.39,80 

Schnittstellen: 

Amstrad Page.198,- 

RS 232 Joyce.198,- 


zurOck an Absender Q sei 

Interessiert an weiterem Info¬ 
material ? Kostenlose Gesamt¬ 
angebotslisten anfordern ! 


M P2 (‘TV-Anschluß'). 168,- 

Mit Hilfe dieses Modulators können Sie ein 
Farbfernsehgerät an Ihren CPC anschließen. 


MP3 (-TV-Tuner-). 199,-- 

Aus Ihrem Color Moni, wird ein Farbfernseher. 


Multiface (Kopiermodul). 178,' 


3,5” LW (CPC/Joyce)_je 240,“ 

Achtungl Läuft am CPC 464 nur mit Contr. 

5,25" LW (CPC/Joyce) .. je 320,“ 

Achtungl Läuft am CPC 464 nur mit Controller 
Metallgehäuse (Inkl Kabel anschlußfertig) 
Diskpsrs 3.5” r 5.25 ' Formalsoftware 78,-- 


aer beste Drucker für den CPC. nur an diesen 
Drucker können Sie den Dari-Scanner 
anschließen. 

DMP 3160 ...498,- 


Joyce PCW 8256 . 998.- 

Joyce PCW 8512 .... 1398,- 
j Joyce PCW 9512 ....1698.- 

; Locomotive: 

: LocoMail 1 .128,- 

LocoMaM 2 168,- 

LocoScrpt 2.148,- 

i LocoSpel!2 .168.- 

Loco File ... 168.- 

ij’ij Loco Font 

■ i; Set 1 und 2.79.80 / 68.40 

pi Prospell dt. 79.- 

STAR DIVISION 

Statistik-Star.98,- 

:;ö> Starmail.99,- 

P Datei-Star.99,- 

j Star-Base.198,- 

'. | Business-Star . 298,- 

Fibu-Star Plus.298,- 


M«i Office Profess. 138,- 


. UlMill. /UH-imriMU ca.ou 

FISKUS 89-90 .139,- 

WS-Tuner.49,80 

Turbo Pascal 3 0 .... 225,- 

Prompt (Datei).69.- 

Prompt Druck.39,- 

Turbo Adress....98,- 

Turbo Faktura.148,- 

Headilne.198,- 

MICA CAD.98,- 

Comac Litbox 4.0.148,- 

Comac Kasse Plus... 168,- 
Comac-Banktransfer. 59,50 
Vereinsverwaltung.... 198,- 

Schreiblehrgang.89,- 

Mini DOS.50,- 

Lerntrainer Joyce.49,- 

Auswahltrainer.49,- 

ArnorC.225,- 

MAXAM II.239,- 


ProScan (Hondtcann«r)798,— 


■ Abdeckhauben: 

. CPC Monitore.je 39,1 

• DMP-Drucker.je 29,1 

i DD 1/FDl/Vortex ....je 19,) 

j CPC Konsolen.je 24,f 

Joyce Monitor.44,1 

’ Joyce Tastatur.24,t 

| Joyce Drucker.24,t 

3"-Disketten (lost.) 
Maxell / AmsoftCF2 .... 69,- 

CF2 DD.128,- 

Noname .. 59,- 

Dlskettenboxen: 

3--3.5'/50.19,8 

3--3.57100 . 29,8 

5,257100 . 29,8 

POSSO BOX 150 3” ..59,- 


O »ür CPC 6128. 664. 464 
O für PC O f ür Joyce 
O Spiele CPC O Spiele Joyce 
O Lernprogramm-Liste 


Schaltpläne 


CPC Konsole.Je 29,80 

CTM 644/640. 19,80 

GT 64/65.19,80 

DDI1/FD1.19,80 

DMP xxxx.29,80 


Graf k auf CPC 


Renner von AMSTRAD 


CPC 


Druckerkabel CPC 464/664 6128 

Farbband DMP XXXX. 

Farbband Star LC 10- 

Farbband NLO 401... 


...38,- 

.„19,80 

...19,80 

..19,80 


Kontenblätter Fibu.35,90 


Joyce-Knüller: 

Supercopy (Kcpierpig.) . 85,- 

Desktop Publisher.98,- 

... + AMX-Maus (+).... 298,- 

MasterScan (+).298,- 

MasterPaint.78,- 

MasterScan/-Paint (+) 338,- 

VIDI PCW (+).348,- 

Echtzeituhr (+).129,- 

(♦) PCW-Adapter.... 39,- 


DMP 3160 9 Nadeldrucker 


Joyce Software und Hardware 


Speichererweiterungen : 




Farbbänder 

Joyce (Carbon).. 
PCW9512.. 


2^-Laufwerke au s eigener 
Produktion I 


AMSTRAD 3"-Laufwerke: 


Joyce + CPC Zubehör 


Joyce-Spiele: 

AnaJs of Rome .. 

Batman. 

Cyrus 3D Schach.... 

Corruption. 

Jinxter. 

Lancelot. 

Matchday II. 

Tomahawk. 


89,- 

59,- 

49,80 

89,- 

89,- 

69,- 

69,- 


Druckerpapler 

Umweltschutzpapier 
Zweckform 1000 Bl... 
Endlos 1000 Blatt 
Etiketten 200 Stk 


70 x 70 3" und 3.5" 


39.80 

19.80 


.24,80 

.29,80 


16,- 


Pmfi 


für den Profi: 


vom 


Profi Programme CPC/PCW 3" 


Adresscomp.58,- 

Fakturem.78,- 

Flbuplan.148,- 

Lagdat.68,- 

Etatgraf.58,- 

j Kalkurem.78,- 
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Ein exzellentes Trio! (1) 

LocoScript 2, LocoMail und LocoFile 

Der zweiteilige Beitrag soll die Zusammenarbeit von LocoScript 2 mit 
LocoMail und LocoFile verdeutlichen. Im ersten Teil werden die Dateien von 
ADRES beschrieben, die der Erstellung von Adressen-, Telefonnummern- 
und Geburtstagslisten für Taschenringbücher dienen. Wir erstellen ebenfalls 
eine Startdiskette. 


Sie benötigen LocoScript V2.26 oder 
V2.28 und die dazu kompatiblen Ergän¬ 
zungen LocoMail und LocoFile. 
ADRES läuft auf beiden PCWs, doch 
sollte der PCW 8256 eine RAM-Erwei- 
terung besitzen. Die Anpassung an den 
PCW 9512 ist möglich. Einlagen für 
ADRES: ELBA, Nr. 52605, oder 
LE1TZ, Nr. 4580, liniert, für Ringbü¬ 
cher mit sechs Ringen. Papierführung 
(nicht nur für die Ringbucheinlagen): 
'MM3’; über JOYCE-Händler zu bezie¬ 
hen. 

Abkürzungen: 

Diskette(n) = Disk, 

Diskvervvaltung = DV, 

Laufwerk = LW. 

Erstellen der Start-Disk 

Auf die Seite A, Gruppe 0, einer LW-A- 
Disk kopieren Sie die folgenden zehn 
Dateien (erste bis achte von der Loco- 
Script-2-Master-Disk V2.26 oder V2.28; 
neunte bis zehnte von der DATABOX): 

1. J226LOCO.EMS, 

2. DISCMAN.JOY, 

3. KEYBOARD.JOY. 

4. LOCOFILE.JOY, 

5. LOCOMAIL.JOY, 

6. MATRIX.PRI, 

7. SCRCHAR.JOY. 

8. SCRIPT.JOY, 

9. EINSTELL.STD, 

10. ET. AL 

Die Datei EINSTELL.STD wurde über 
<f6> eingerichtet. Die Erstellung der 
Datei ET. AL wurde bereits in zurücklie¬ 
genden Ausgaben der PCI erläutert. Die 
6 kByte große Datei ET.AL bewirkt 
beim späteren Start von LocoScript 2. 
daß ein Menü zum Einlegen der näch¬ 
sten Disk auffordert, hier der Seite B der 
noch zu erstellenden Daten-Disk. Ge¬ 
ben Sie der 'GruppeO' auf LW A: (Seite 
A) über <f4> den Namen 'PRO- 
GRAME. 

Die Daten-Disk 

Kopieren Sie von der LoeoScript-2-Ma- 
Ster-Disk die Dateien I. MATRIX.#ST 
und 2. MATRIX.#SS auf die Seite B un- 
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ter die Gruppe 0 der Start-Disk (das 
wird die Daten- Disk). Dorthin kopieren 
Sie auch die folgenden ADRES-Dateien 
von der DATABOX: 

3. ADREST)0.FIL4. ADRES'01.DAT 

5. ADRES’ET.LML 

6. ADRES’G.LML 

7. ADRES’K.LML8. ADRES'N.LML 
9. ADRES'R.LML 10. ADRES’T.LML 

11. ADRES’X.LML 12. ADRES.STD 
13. ADRES.TRF 

Geben Sie der 'GruppeO' auf LW A: 
(Seite B) über <f4> den Namen ’PRO- 
GRAM2’. 

Die DATABOX-Dateien 

ADRES’OO.FIL ist eine leere LocoFile- 
Datei mit dem Karteiblatt für Adressen 
und sonstigen Infos. Arbeiten Sie bitte 
nur mit Kopien dieser Datei (ADRES = 
Adressen, FIL = LocoFile, 00 = keine 
Daten). ADRES'01 .DAT ist eine Kopie 
von ADRES'OO.FIL mit Musterdaten. 
Im Feld 'GRUPPE’ können Sie Abkür¬ 
zungen wie ’F’ (Firma), 'P' (Privat), 'U' 
(User-Club) und so weiter eingeben, so 
daß eine Sortierung nach diesen Krite¬ 
rien möglich wird (01 = erste Kopie, 
DAT = Daten). ADRES’ET.LML ist 
eine Loco Mail-Datei, mit der die An¬ 
schriften aus der Datei ADRES’Ol.DAT 
herausgelesen und in eine Liste übertra¬ 
gen werden, die zum Druck von Etiket¬ 
ten dient (LML = LocoMail, ET = Eti¬ 
ketten). ADRES’G.LML ist eine Loco- 
Mail-Datei, mit der Geburtstage aus der 
Datei ADRES'Ol.DAT herausgelesen 
und in einer Liste eingetragen werden 
(G = Geburtstage). ADRES'K.LML ist 
eine LocoMail-Datei, die Adressen und 
Telefonnummern aus der Datei 
ADRES'01 .DAT liest und eine entspre¬ 
chende Liste erstellt (K = Kurzform). 
ADRES’N.LML ist eine LocoMail-Da¬ 
tei. die Namen und Vornamen aus der 
Datei ADRES’Ol.DAT herausliest. Da 
nach Namen und Vornamen sortiert 
wiedergegeben wird, kann bei der Ein¬ 
richtung von Verzeichnissen schnell ge¬ 
prüft werden, ob Adressen doppelt ein¬ 
gegeben wurden (N = Namen). 
ADRES'R.LML ist eine LocoMail-Da¬ 


tei, mit der alle Informationen aus der 
Datei ADRES’Ol.DAT herausgelesen 
und in einer Liste (sortiert nach Namen. 
Vornamen: je Ringbuchseite drei Daten¬ 
sätze) abgelegt werden (R = Ringbuch). 
ADRES'T.LML ist eine LocoMail-Da¬ 
tei, mit der die privaten (TELP) und 
dienstlichen Telefonnummern (TELD) 
aus der Datei ADRES’Ol.DAT heraus¬ 
gelesen und in einer Liste abgelegt wer¬ 
den (T = Telefon-Nr.). ADRES’X.LML 
ist eine LocoMail-Datei, mit der nur die 
Datensätze aus der Datei 
ADRES’Ol.DAT herausgelesen wer¬ 
den, die unter dem Feld 'GRUPPE' ein 
gewünschtes Kürzel enthalten, hier ein 
'X' (X = Auswahl). ADRES.TRF ist 
eine LocoMail-Datei, mit der alle Infor¬ 
mationen aus der Datei 
ADRES'Ol.DAT herausgelesen und in 
einer Schablone gespeichert werden, et¬ 
wa unter dem Namen ADRES'01 .TXT. 
Wird später eine Kopie der Datei 
ADRES'OO.FIL erstellt und in 
ADRES'02.DAT umbenannt, so kön¬ 
nen in diese Datei von der LocoFile- 
Ebene aus über <fl> die Daten aus der 
Datei ADRES’01 .TXT übernommen 
werden. Eine vorherige Editierung der 
Daten ist möglich (TRF = Transfer). 
ADRES.STD ist eine SAETZE.STD 
Datei, in der Floskeln für die Eingabe 
bei den Adressen gespeichert wurden; 
diese können über <E1NBL> <Buchsta- 
be> abgerufen werden, zum Beispiel 
unter TI = 'Herrn', unter 'N' = '040 - ’ 
(Vorwahl für Hamburg) und so weiter. 
Das klappt nur, wenn diese Datei zuvor 
über <fl> geladen wurde (STD = Stan¬ 
dard). 

Programm Start 

Nach dem Start mit Seite A der Start- 
Disk erscheint ein Hinweis zum Einle¬ 
gen der nächsten Disk. Drehen Sie die 
Disk im LW A: um, und drücken Sie 
<ENTER>. Die Dateien MATRIX.#SS, 
MATRIX.#ST und solche mit der Ex¬ 
tension .DAT werden nun ins LW M: 
kopiert. Die Druckerdateien mit der 
Kennung ’#' dürfen nicht gelöscht wer¬ 
den. Die LocoFile-Datei 

ADRES'01 .DAT kann dort zur Eingabe 
von Daten aufgerufen werden. 

Schlußbemerkung 

Im nächsten Heft erfahren Sie, wie Sie 
mit den ADRES-Programm-Dateien ar¬ 
beiten und das Taschenringbuch anle- 
gen. Ferner wird das LocoMail-Loco- 
File-Programm INVNT mit selbstrech¬ 
nenden Inventarlisten vorgestellt. 

(Detlef Geliring/rs) 
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Update-Daten LocoScript 

LocoScript für den großen Bruder 

Seit wir Ihnen in der PCI 2/3’9I LocoScript für den PC vorgestellt haben, 
hat sich wieder so einiges getan, was für Sie sicherlich interessant ist. 


Bei der Version 1.54 von LocoScript PC 
wurden wesentliche Veränderungen zu 
der Vorgängerversion vorgenommen. 
Hier alle Funktionen in einer Schnell¬ 
übersicht. 

• Sollten Sie vergessen haben, in wel¬ 
chem Verzeichnis Sie einen be¬ 
stimmten LocoScript-Text abgelegt 
haben, wird die Suche nach diesem 
wesentlich vereinfacht. Man gibt nur 
den Dateinamen ein und LocoScript 
durchsucht optional den ganzen Da¬ 
tenträger nach der in Frage kommen¬ 
den Datei und springt dann in das ent¬ 
sprechende Verzeichnis. 

• Weiterhin wurden die Datei- und Ver- 
zeichnisfunktionen vielfältig erwei¬ 
tert. So können jetzt ganze Verzeich¬ 
nisse gelöscht, verschoben, kopiert 


oder umbenannt werden. Daß auch 
hierbei auf Nummer Sicher gegangen 
wird, versteht sich von selbst. Sicher¬ 
heitsabfragen lassen die Dateiopera¬ 
tionen von LocoScript zu keinem Si¬ 
cherheitsproblem werden. 

• Da man nicht immer auf die mitgelie¬ 
ferten Tastaturschablonen zurück¬ 
greifen möchte oder selbige nicht im¬ 
mer parat hat, wurde im Programm 
ein Hotkey belegt, über den man an 
jeder Stelle die Tastaturbelegung mit 
allen verfügbaren Sonderzeichen 
aufrufen kann. Mit den Cursor-Ta¬ 
sten lassen sich diese - nicht nur ein¬ 
zeln - leicht in den Text übernehmen. 

• Das Programm ist nun auch netz¬ 
werkfähig. 


• Unterstützt wird jetzt ab Version 1.54 
auch der EMS-Speicher. Je nach des¬ 
sen Größe werden automatisch alle 
benötigten Programmteile, ja sogar 
ganze Wörterbücher in diesen über¬ 
tragen, was sich auf die schon recht 
gute Geschwindigkeit beim Arbeiten 
mit LocoScript sehr positiv auswirkt. 
Sollte der EMS-Speicher durch eine 
RAM-Disk blockiert werden, so 
nutzt LocoScript einfach das Lauf¬ 
werk. 

• Im Sommer werden neue Fonts für 
LocoScript PC verfügbar sein (Loco- 
Font). 

• Für Besitzer von HP-Laserjet-kom- 
patiblen Druckern sind nun auch sca- 
lierte Schriften unter LocoScript kein 
Thema mehr. 

• Wer LocoScript in Verbindung mit 
seinem AMSTRAD-Laptop und dem 
optimal dazu passenden Canon Bub¬ 
ble Jet BJ-1 Oe einsetzt, kann auch un¬ 
terwegs sehr gute Druckergebnisse 
erzielen. Der Treiber für diesen 
Drucker leistet hier wahre Wunder. 

(is) 
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Funktion 

Einfaches Integrieren von 
Funktionen in Pascal-Programme 

Wenn man seinen Computer vorwiegend zum Berechnen von Funktionen 
oder zum Zeichnen von Graphen benötigt, was ja eigentlich schon jeder 
bessere Taschenrechner kann, stößt man sehr schnell auf das Problem, dem 
Rechner die auszurechnende Funktion einzugeben. Der normale Weg ist 
die Funktion als solche in den Programmtext zu integrieren und sie vom 
Compiler übersetzen zu lassen. 


Das dauert natürlich viel zu lange, um 
so ein Programm sinnvoll einzusetzen. 
Warum also dieser Umstand, wenn eine 
kleine Routine für Sie die ganze Arbeit 
erledigen kann? Die Routine FN.INC 
benötigt lediglich die Eingabe der Funk¬ 
tion in der Form eines Strings (zum Bei¬ 
spiel: 3*x + sin(2*x)) und den dazuge¬ 
hörigen Zahlenwert (zum Beispiel: 
x = 4). Als Ausgabe liefert sie dann das 
richtige Endergebnis (in diesem Fall 
f(x) = 12,98). Das grundsätzliche Pro¬ 
blem dieser Programmieraufgabe be¬ 
steht darin, zum einen die Regel Punkt 
vor Strich zu beachten und zum anderen 
die Klammersetzung zu berücksichti¬ 
gen. 

Internes 

Die Routine gliedert sich in zwei Teile. 
Der Hauptteil bearbeitet eine Zeichen¬ 
kette ohne Klammern und führt, unter 
Berücksichtigung der Rechenregeln, 
Multiplikationen und Additionen durch. 
Das geschieht folgendermaßen: Die 
Zeichen in dem Eingabestring ausdruck 
werden sukzessive abgefragt und als 
Faktoren beziehungsweise Summanden 
identifiziert, das heißt nach einem 
oder 7" folgt ein Faktor und nach einem 
"+" oder folgt ein Summand. Diese 
Faktoren oder Summanden werden in 
den Vektoren Multiplikation für einen 
Faktor oder summe für einen Summan¬ 
den abgelegt. Über die aktuelle Position 
in diesen Vektoren, in die abgelegt wer¬ 


den soll, entscheidet multiplikation zei¬ 
gen beziehungsweise summezeiger. 
Das Flag multiJlag entscheidet dar¬ 
über, ob ein Faktor als Zahl oder deren 
Kehrwert abgelegt wird, je nachdem, ob 
das Zeichen vordem Faktor "*" oder"/" 
war. 

Das Flag summe Jlag entscheidet dar¬ 
über, ob die Zahl oder ihre Multiplika¬ 
tion mit (-1) abgelegt wird. Die Vekto¬ 
ren multiplikation und summe arbeiten 
nun wie folgt zusammen: Zuerst werden 
die ersten Faktoren am Anfang des Ein¬ 
gabestrings ausdruck beginnend in mul¬ 
tiplikation abgelegt. Erreicht nun das 
sukzessive Abfragen ein "+" oder 
werden die Faktoren in multiplikation 
aufmultipliziert und als erster Summand 
in summe abgelegt sowie mit dem rich¬ 
tigen Vorzeichen gemäß summe Jlag 
versehen. Danach wird multiplika¬ 
tion zeigen zurückgesetzt, und das Ver¬ 
fahren beginnt mit den nächsten Fakto¬ 
ren von vorne. Erreicht die Routine das 
Ende von ausdruck , so werden die ein¬ 
zelnen Summanden aufgerechnet, und 
das Ergebnis bildet die Ausgabe der 
Routine FN.INC. 

Bis jetzt kann die Routine nur die nor¬ 
malen Strichrechenarten verarbeiten. 
Das weitere Problem ist die Einführung 
von Klammern und damit auch die Be¬ 
handlung von trigonometrischen Funk¬ 
tionen und so weiter. Hierfür ist die Un¬ 
terroutine klammer such zuständig so¬ 
wie das Programmieren mit rekursivem 


Code. Erreicht nun das sukzessive Ab¬ 
fragen im Hauptteil eine öffnende 
Klammer, so sucht klammer such die 
dazugehörende schließende Klammer, 
indem es in dem nachfolgenden Teil des 
Eingabestrings ausdruck die öffnenden 
und schließenden Klammern mit klam¬ 
mer zahl abzählt. Die Position in aus¬ 
druck nach der schließenden Klammer 
wird in nulljmnkt abgelegt. Anschlie¬ 
ßend wird der Bereich zwischen den 
Klammem aus dem Eingabestring aus¬ 
druck herausgeschnitten und der Routi¬ 
ne FN.INC als Eingabe wieder zurück¬ 
gegeben. Hier liegt die Rekursion, denn 
das herausgeschnittene Stück kann ja 
auch wieder als String mit einfachen 
Strichoperationen aufgefaßt werden. 

Hat diese Rekursion nun diesen Teil be¬ 
rechnet, kehrt sie zum Eingabestring 
ausdruck zurück und fährt mit dem suk¬ 
zessiven Abfragen bei nulljmnkt fort. 
Treten noch weitere ineinander ver¬ 
schachtelte Klammern auf, so steigt die 
Rekursion noch weitere Ebenen hinun¬ 
ter. ln ähnlicher Weise können auch be¬ 
liebige trigonometrische und andere 
Funktionen behandelt werden. Hier 
wird jeweils die zum Funktionssymbol 
gehörende Klammer ausgeschnitten 
und anschließend berechnet. So wird 
bei "sin(2*x)" die Klammer "(2*x)" 
ausgeschnitten, das Ergebnis 
(für x = 4 : 8) rekursiv berechnet und 
anschließend der Sinus davon genom¬ 
men. Das Beispiel DEMO.PAS ist die 
einfachste Version eines Taschenrech¬ 
ners. Zu beachten wäre noch, daß beim 
Compilieren die maximale Endadresse 
im Compilermenü Optionen begrenzt 
werden muß, da die Rekursion Spei¬ 
cherplatz benötigt, um die Ergebnisse 
Zwischenspeichern zu können. 

(Achim von Keudell/rs) 


Dieses Programm ist in Turbo Pascal geschrieben. Um 
es verarbeiten zu können, müssen Sie das Turbo Pascal 
von Borland besitzen. Ist dies nicht der Fall, können 
Sie sich zumindest die Demo auf der DATABOX 
an schauen. 


program demo; 

(*$i arfn.inc*) 

var ausdruck : string_90; 
x : real; 

begin 

clrscr; 

write(' Funktion von x : '); 

readln(ausdruck); 

write('Funktionswert von x : '); 

readln(x); 

writeln; 

writeln(ausdruck,' = 1 ,fn(x,ausdruck), für x = ,x); 

end. 

Listing 1 DEMO.BAS 


(*$a- Rekursiver Code möglich*) 

type string_90 = string(.90.); 

(* Klammer-ausdruck wird gesucht, die Routine über 

gibt (* die Position im String ausdruck der schließende 
n zweiten Klammer *) 

function klammer_such(i: integer; ausdruck: string 
90):integer; 

var klammer_zahl,t : integer; 
a : char; 

begin 

Listing 2 FN.INC 
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l); 

i); 


klammer zahl:=l; 
for t:=T to length(ausdruck) do 
begin 

a:=copy(ausdruck,t,l); 

if a= 1 ( 1 then klammer_zahl:=succ(klammer_zah 

if a=')' then klammer_zahl:=pred(klammer_zah 

if klammer_zahl =0 then 
begin 

klammer_such:=t; 
exit; 
end; 

end; 

end; 

(* Ende Klammer-ausdruck *) 


function fn(x: real; ausdruck: string_90):real; 

var multiplikation, summe : array(.l.. 20 .) of 

real; (* Stapel für Multiplikation und Summation *) 
i,t,code,null_punkt, 
multi_flag, summe_flag, 
multi_zeiger, summejzeiger, 
zeichen_ende : integer; 

zahlen_string : string(. 20 .); 

a_string : string(. 2 .); 

a : char; 

ergebnis ; real; 

label ausgang, eingang, auswertung; 
begin 

multi_zeiger:= 0 ; 
summe_zeiger:= 0 ; 
multi_flag:=l; 
summe_flag:=l; 

ausdruck:=ausdruck+'**********'; (* das Ende von A 

usdruck wird markiert *) 

for i:= 1 to length(ausdruck)-9 do 
begin 

a:=copy(ausdruck,i, 1 ); 

if copy(ausdruck,i, 2 )='**' then goto auswertung; 
case a of 

’x' : begin (* Variable x*) 

multi_zeiger:=succ (multi zeiger); 
multiplikation(.multi_zelger.):=x; 
if multi flag=-l then multiplikation(. 
multi_zeiger.):=l/multiplTkation(.multi_zeiger.); 
end; 

(* Hier können weitere variablen eingef 
ügt werden in dem man den Block *) 

(* für x mit z.B. dem Buchstaben y wied 
erholt *) 

: begin (* der nächste zu lesende Au 

sdruck wird multipliziert *) 

multi_flag:=l; 
end; 

'/' : begin (* der nächste zu lesende A 

usdruck wird dividiert *) 

multi_flag:=-l; 

end; 

^ : begin (* Addition,Multipliaktion 

if multi_zeiger <>0 then 
begin (* Multiplikat 

ion der bisherigen Faktorev *) 

summe ze ger:=succ(summejzeiger); 
summeX.s immejzeiger.):=l; 
for t:=l to multi_zeiger do 
begin 

summe(.summe_zeiger.):=summe(.summe 
_zeiger.)»multiplikation(.t.); 

end; 

multi zeiger:= 0 ; 

summef.summe_zeiger.):=summe(.summe z 
eiger.)*summe_flag; 

end; 

case a of 

'+' : summe_flag:=l; 

1 : summe_flag:=-l; 
end; 
end; 

's', , c , , , e , , , a', , l','(' : begin (* Funktionen be 
arbeiten *) 

(* Startpunkt fü 

r die öffnende Klammer wird gesucht *) 
nulljpunkt:=i; 

a string:=copy(ausdruck,null punkt, 2 ); 
il a='(' then i:=null_punkt+T; 
if ((a_string='si') or (a_string='co') 
or (a_string='ex') or (a string='ab') 

) then i:=null_punkt+4; 

if a_string='ln’ then i:=null_punkt+3 
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ionen eingefügt werden *) 


if a_string='ar' then i:=null_punkt+7 
if a_string='sq l then i:=null_punkt+5 

multi_zeiger:=succ(multi zeiger); 
zeichen_ende:=klammer_such(i,ausdruck) 

(* Hier liegt die Rekursion 
(* Hier können eigene Funkt 


.multi_zeiger.):= 
chen_ende-i))) 
multi_zeiger.) 
chen_ende-i))) 
multi_zeiger.) 
chen_ende-i))) 
multi_zeiger.) 
chen_ende-i))) 
multi_zeiger.) 
hen_ende-i))); 
multi_zeiger.):= 


if a_string='si' .then multiplikation( 
sin(fn(x,copy(ausdruck,i,zei 
if a_string= 1 co 1 then multiplikation(. 

cos(fn(x,copy(ausdruck,i,zei 
if a_string='ex' then multiplikation(. 

exp(fn(x,copy(ausdruck,i,zei 
if a_string='ab' then multiplikation(. 

abs(f n(x,copy(ausdruck,i,zei 
if a_string= 1 ln' then multiplikation(. 

1n(fn(x,copy(ausdruck,i,zeic 
if a_string='ar' then multiplikation(. 

arctan(fn(x,copy(ausdruck,i, 


zeichen_ende-i))) ; 

if a_string='sq' then multiplikation(. 

multi_zeiger.):= 

sqrt(fn(x,copy(ausdruck,i,ze 

ichen_ende-i))); 

if a='(' then multiplikation(.multi z 
eiger.):= _ 

fn(x,copy(ausdruck,i,Zeichen 
ende-i)); - 

if multi_flag=-l then 

multiplikation(.multi zeiger.):=l/m 
ultiplikation(.multi_zeiger.); 

i:=zeichen_ende; 
end 

^ eise (* normale Zahlen werden erkannt 

begin 

zahlen string:=a; 
eingang: 
i:=succ fi); 

if copy(ausdruck,i,1) in (. ’1',' 2',' 3' 
, , 4 , , , 5','6 , , 1 7 , , , 8 , ,'9','0’,'.'.) then 
begin 

zahlen_string:=zahlen string+copy( 

ausdruck,i,1); 

end 

eise 

begin 

l:=pred(i); 
goto ausgang; 
end; 

goto eingang; 
ausgang: 

multi zeiger:=succ(multi zeiger); 
val(zählen_string,multiplikation(.mult 

i_zeiger.),code); 

if multi flag=-l then multiplikation{. 
multi_zeiger.):=l/multiplTkation(.multi_zeiger.); 
end; 

end; (* case *) 
and; (* Schleife i*) 

auswertung: 

summe zeiger:=succ(summe_zeiger); 
summeX•summe_zeiger.):=1; 
for i:=l to multi_zeiger do 
begin 

summe(.summe zeiger.):=summe(.summe zeiger.)*mu 
ltiplikation(.i.); 
end; 

summe(.summe_zeiger.):=summe(.summe zeiger.)»summe 
flag; 

for i:=l to summe_zeiger do 
begin 

ergebnis:=ergebnis+summe(.i.); 
end; 

fn:=ergebnis; 

end; 

(*$a+*) 
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Atomic 

Das Spiel der Atome 

Sie, der berühmteste Atomforscher des Universums, ha¬ 
ben wieder einen neuen Stoff entdeckt, und zwar mit 
dem Namen Superchlortrisulfidpentoxid. Doch durch 
eine Kernspaltung teilte sich der Stoff in fünf Moleküle, 
und diese w iederum in einzelne Atome. Versuchen Sie 
nun, die einzelnen Atome zu den angegebenen Molekülen 
zusammenzufügen. Doch die Zeit ist knapp, denn in ge¬ 
nau drei Minuten werden die Atome explodieren!! 

Am Anfang werden Sie nach der Helligkeit des Bildschirms 
gefragt. Geben Sie nun ein <H> für Hell und <D> für Dunkel 
ein. Nachdem der zweite Teil von ATOMIC geladen wurde, ist 
am Bildschirm folgendes zu sehen: 

• In der linken unteren Ecke befindet sich die eingerahmte 
Molekülformel. Ihr Ziel ist es nun, die Atome auf dem 
Spielfeld genau in die Position zu verschieben, die mit der 
Atomstellung in der angegebenen Molekülformel überein¬ 
stimmt. Dabei spielt es keine Rolle an welcher Stelle die 
Atome plaziert wurden, sondern daß sie in der Stellung sind 
wie angegeben. 

• Über der Molekülformel werden die Molekülnummer an¬ 
gezeigt, die Punkte die man bereits hat und die Zeit. Diese 
beginnt bei 00 : (X) zu zählen. Bei 03 : 00 explodieren die 
Atome. Wenn sie mehr als dreimal explodieren, ist das 
Spiel zu Ende. 

• Rechts befindet sich das eigentliche Spielfeld. Es besteht 
aus elf mal zwölf Feldern. Auf diesen Feldern verteilt wer¬ 
den Steine, 'volle’ Atome und der Molekülnummer ent¬ 
sprechend viele 'leere' Atome. In der rechten oberen Ecke 
des Spielfeldes befindet sich ein Pfeil. Als erstes wird das 
Spielfeld aus Steinen aufgebaut, dann werden die Atome 
plaziert. 

Richtige Richtung? 

Sie können den Pfeil nun mit den Cursortasten über das ganze 
Spielfeld steuern. Wollen Sie nun ein Atom verschieben, fah¬ 
ren Sie mit dem Pfeil auf das entsprechende Atom. Drücken 
Sie nun <ENTER>. Fahren Sie mit dem Pfeil genau in die 
Richtung, in die Sie das Atom bewegen wollen und drücken 
wieder <ENTER>. Das Atom wird sich nun in diese Richtung 
bewegen (Dieser Vorgang ist am Bildschirm nicht zu sehen) 
bis es entweder auf einen Stein oder ein Atom stößt. Versu- 



Abbiklung l: Versuchen Sie , mit Geschick und Tücke dieses Atom zusammen- 
zubauen 


eben Sie nun die Atome so lange zu verschieben, bis die Atom¬ 
stellung auf dem Spielfeld mit der in der Molekülformel über¬ 
einstimmt. Ist das der Fall, so wird das Spielfeld gelöscht, und 
es werden die Molekülnummer, die benötigte Zeit, und die 
Punkte angezeigt. Die Punkteanzahl wird berechnet aus der 
Anzahl der benötigten Züge, der Zeit und der Molekülnum¬ 
mer. Mil einem Tastendruck geht es dann weiter zur nächsten 
Molekülnummer, wobei es fünf solche Nummern gibt, die Sie 
alle zu bewältigen haben. Das Spiel wird abgebrochen mit 
<CAN> oder <STOP>. 

Variablen 


Da dieses Programm rein technisch gesehen recht interessant 
ist, möchten wir an dieser Stelle noch eine Variablenliste hin¬ 
zulugen, die zum Verständnis sicherlich mehr als nützlich ist. 


esc$ - 
els$ - 
con$ - 
coff$ - 
aus invon$ - 
invoffS - 
homS - 


hellS - 

dkl$ - 
stoffS - 
stonS - 

FNlocS (x,y) - 
FNwinS (a,b,c,d) - 

FNtex$(textS,x,y) - 

ant$, frgS - 
yS- 

FNgt(x)- 

FNzS (x) - 
levcl $- 
merk (x,y) - 

pfxpos.pfypos - 
xstein(a), ystein(a) - 

vollxpos.vollypos - 
stein - 
leer - 

leerxpos(a), 
leerypos(a) - 

fmleer - 

fmlxpos(a), 
fmlypos(a) - 

fmvxpos,fmvypos - 

timeb - 
h - 

abew - 
bew - 


stol, sto2 - 


Escape 

Bildschirm löschen 
Cursor an 
Cursor 

inverse Darstellung an 
inverse Darstellung aus 
Cursor in linke obere Ecke des 
Bildschirms 
Bildschirm hell schalten 
Bildschirm dunkel schalten 
Statuszeile an 
Statuszeile aus 
Cursor in Zeile x, Spalte y 
Fenster definieren: in Zeile a. 

Spalte b. Höhe d. Breite d 
Inversen Text textS in Zeile x, 

Spalte y setzen 
Tastaturabfrage 

aktuelles Window löschen und auf vollen 

Bildschirm schalten 

Umrechnung der hexadezimalen 

Zeitzahl x. in die richtige Zeit 

Die Zeit x auf zwei Stellen anzeigen 

Molekülnummer 

Speichervariable für belegte Felder im 
Spielfeld mit den Koordinaten x und y 
Koordinaten des Pfeils 
Koordinaten des Steines mit der 
Nummer a 

Koordinaten des 'vollen' Atoms 
Anzahl der Steine im aktuellen Spielfeld 
Anzahl der 'leeren' Atome im aktuellen 
Spielfeld 

Koordinaten des 'leeren' Atoms mit der 
Nummer a 

Anzahl der leeren Atome in der 
Molekülformel 

Koordinaten des 'leeren' Atoms in der 
Molekülformel mit der Nummer a 
Koordinaten des 'vollen' Atoms in der 
Molekülformel 

Verzögerungsvariable für die Zeitanzeige 
Richtung des Pfeiles bzw. die Richtung, 
in die das Atom verschoben wird 
Prüfvariable, ob nach der Pfeilbewegung 
das Atom schon markiert wurde 
Art des Hintergrunds auf der aktuellen 
Pfeilposition 

Speichervariable für die aktuelle 
Pfeilposition, nachdem <RETURN> 
gedrückt wurde 
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vers - 

Anzahl der Versuche (nach jedem 
verschobenen Atom vers = vers + 1) 

störe 1, store2 - 

Speichervariable für die aktuelle 

Position des Atoms, das verschoben wird 

expl - 

Anzahl der Explosionen 

time - 

Zeitberechnung aus den Minuten und 
Sekunden 

mi- 

Minuten 

se - 

Sekunden 

punkte - 

Anzahl der Punkte 

i.p- 

Schleifen variablen 

OUT-Befehle: 

OUT 248,7 - 

Bildschirm ein 

OUT 248.8 - 

Bildschirm aus 

QUT248.il - 

Dauerpiepston ein 


OUT 248,12 - Dauerpiepston aus 

OUT 246,x - Bildschirm in Position x scrollen 


PEEK-Befehle: 

PEEK(64503) - Minuten 

PEEK(64504) - Sekunden 

Christian Troger/rs 


Dieses Programm ist in Basic geschrieben. Da das Programm in zwei Teile gespalten 
wurde, sollten Sie auf folgendes achten 

Gehen Sie zuerst den ersten Programmteil ein und speichern Sie diesen nun mit 
SAVE" ATOMIC .BAS" ah. Nun gehen Sie Teil zwei ein und speichern Ihn mittels 
SAVE"ATOM." ab. Nun kann das Spiel mit RUN"ATOM IC.BAS" gestartet werden. 



LISTING >ATOMIC 


REMARK 


> ' < . 


< 1 > 
< 2 > 
<79> 
<74> 
<28> 
<76> 
<59> 
<78> 
<63> 
<56> 
<84> 
<60> 
< 68 > 
<26> 
<28> 
<30> 
<32> 
<71> 

< 4> 
<14> 
<36> 
< 10 > 
<34> 
<87> 
<49> 

< 6 > 
<91> 
<40> 
<51 > 
< 68 > 
< 12 > 
<32> 
<35> 

< 10 > 


<30> 

<32> 

<46> 

<36> 

<38> 


>>>>>: 

>> . 

>> . 

>> . 

>> . 

>> . 

>> C h 

>> . 

>> . 

>> . 


1.. l. 


n.. TROG 


(C).. 1990. 


,... << 
. ... << 

. . . . << 

.... << 
. ... << 
ER« 
... << 
. . .. << 

, . , . « 


>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<< 


Variablenbenennung 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 

180 WIDTH 90 
190 ON ERROR GOTO 1980 
200 MEMORY SHF3FF 
210 esc$=CHR$(27) 

220 cls$=esc$+"E"+esc$+"H" 

230 con$=esc$+"e" 

240 coff$=esc$+"f" 

250 invon$=esc$+"p" 

260 invoff$=esc$+"q" 

270 hom$=esc$+"H" 

280 hell$=esc$+"c"+CHR$(0)+escS+"b"+CHRS(63) 

290 dkl$=esc$+"c"+CHR$(63)+esc$+"b"+CHR$(0) 

300 stoff$=esc$+"0" 

310 ston$=esc$+"l" 

320 DEF FNlocS(x,y)=esc$+"Y"+CHR$(32+x)+CHRS(32+y) 
330 DEF FNwin$(a,b,C,d)=esc$+"X"+CHR$(31+a)+ CHRS(3 
1+b)+CHR$(31+c)+CHRS(31+d) 

340 DEF FNtex$(textS,X,y)=CHR$(27)+"Y"+CHRS(32+X)+ 
CHRS(32+y)+invon$+SPACE$(1)+text$+SPACE$(1)+invof f 
S 

350 ' 

360 ' 

370 PRINT invoff$;stoff$;coff$;dkl$;cls$;FNtex$("B 

itte ein Momentchen Geduld ...",10,22) 

380 ' 

390 ’ Maschinencode Zeichen einiesen 


< 21 > 
<82> 
<82> 
< 12 > 
<32> 
<47> 
< 1 > 
<50> 
<56> 
<98> 
<81> 
< 20 > 
<93> 
<64> 
<77> 
< 0 > 
< 66 > 
<15> 
< 6 > 
<33> 
<23> 
<25> 
<27> 
<37> 
<75> 
< 11 > 
<30> 
<14> 
<24> 
<92> 


TÜ0 ' 

410 RESTORE 630 

420 codestart=&HF500 

430 tabstart=&HF5l5 

440 FOR i=0 TO 20 

450 READ x:POKE codestart+i,x 

460 NEXT i 

470 RESTORE 760 

480 READ Zeichencode 

490 IF Zeichencoden OR zeichencode>255 THEN 1120 

500 FOR i=0 TO 7 

510 READ x:POKE tabstart+i,x 

520 NEXT i 

530 charstart=zeichencode*8+&HB800+2*16 
540 highaddr=INT(charstart/256) 

550 lowaddr=charstart-highaddr*256 

560 POKE &HF510,lowaddr 

570 POKE S.HF511,highaddr 

580 CALL codestart 

590 GOTO 480 

600 ' 

610 ' Maschinencode _ 

620 ' 

630 DATA &H01,&H09,&HF5 
640 DATA &HCD,&H5A,&HFC 
650 DATA &HE9,&HO0 
660 DATA &HC9 
670 DATA &H21,&H15,&HF5 
680 DATA &H01,&H0B,&H00 
690 DATA SH11,&H00,&H00 


<55> 

< 21 > 

<28> 

<30> 

<32> 

<34> 

<56> 

<90> 

<61> 

< 88 > 

<42> 

<71> 

< 7> 
<61> 
<15> 
<69> 
<30> 
<7 2> 
<14> 
<16> 
<83> 
<35> 

< 0 > 
<31> 
<74> 
<30> 
< 2 > 
<94> 
< 20 > 
<40> 
< 31 > 
<40> 
<75> 
<34> 

< 7> 
<59> 
<15> 
< 22 > 
<58> 
<78> 

< 8 > 
< 88 > 
< 91 > 
<6 3> 

<81> 
<76> 
<25> 
< 7> 
< 10 > 
<13> 
<32> 
<90> 


<47> 

<27> 

<15> 

<33> 


<28> 

<28> 

< 12 > 

<60> 

<89> 
< 3> 


<7 2> 


700 DATA &HED,&HB0 
710 DATA &HC9 
720 1 
730 ’ 

740 ' Daten für Zeichen 
750 ' 

760 DATA 35,255,255,255,255,255,255,255,255 
770 DATA 64,170,85,170,85,170,85,170,85 
780 DATA 255,192,240,252,255,255,252,240,192 
790 DATA 254,3,15,63,255,255,63,15,3 
800 DATA 253,0,0,0,3,4,9,19,19 
810 DATA 252,0,15,240,7,127,255,207,159 
820 DATA 251,19,19,9,4,3,0,0,0 
830 DATA 250,255,255,255,127,7,240,15,0 
840 DATA 249,0,0,0,192,32,144,200,200 
850 DATA 248,0,240,15,224,254,255,255,255 
860 DATA 247,255,255,255,254,224,15,240,0 
870 DATA 246,200,200,144,32,192,0,0,0 
880 DATA 245,0,0,0,3,4,9,18,18 
890 DATA 244,0,15,240,7,120,128,48,96 
900 DATA 243,18,18,9,4,3,0,0,0 
910 DATA 242,0,0,128,120,7,240,15,0 
920 DATA 241,0,240,15,224,30,1,0,0 
930 DATA 240,0,0,0,192,32,144,72,72 
940 DATA 239,72,72,144,32,192,0,0,0 
950 DATA 238,0,0,1,30,224,15,240,0 
960 DATA 237,0,127,110,97,96,96,96,96 
970 DATA 236,0,255,170,213,58,7,1,1 
980 DATA 235,96,96,96,96,97,110,127,0 
990 DATA 234,1,1,7,58,213,170,255,0 
1000 DATA 233,0,255,170,87,188,224,128,128 
1010 DATA 232,0,254,246,134,6,6,6,6 
1020 DATA 231,6,6,6,6,134,246,254,0 
1030 DATA 230,128,128,224,188,87,170,255,0 
1040 DATA 229,63,31,63,255,227,192,128,0 
1050 DATA 228,127,255,240,240,240,240,255,127 
1060 DATA 227,252,248,0,0,0,0,248,252 
1070 DATA 226,255,127,3,3,3,3,3,3 
1080 DATA 225,255,254,192,192,192,192,192,192 
1090 DATA 224,0,0,0,255,0,0,0,0 
1100 DATA -1 
1110 ' 

1120 ' 

1130 PRINT FNtex$("Bildschirm <h>ell oder <d>unkel 

??", 10 , 20 ) 

1140 antS=LOWERS(INKEYS):IF ant$="" THEN 1140 
1150 IF ant$="h" THEN PRINT hell$ ELSE PRINT dkl$ 
1160 PRINT clsS 
1170 ' 

1180 ' Vorspann 

1190 ' - 

1200 OUT 248,8 

1210 PRINT FNlocS(0,0);CHRS(134);STRINGS(86,138);C 
HRS(140):PRINT FNlocS(31,0);CHRS(131);STRINGS(86,1 
38);CHRS(137);homS 

1220 PRINT homS : FOR 1-'. TO 30:PR1NT CHRS (133); SPC ( 
86);CHRS(133) :NF.XT 
1230 OUT 248,7 
1240 FOR. 1 = 1 TO 28 

1250. PRINT FNlocS(5,42-INT(1/2));:PRINT CHRS(255) 
; RIGHTS ( LEFTS(CHRS(228)+CHR$(227)+"hrist ian. "+CHR 
S(2 26)+CHR$(225) + "roger presents",1),1);CHRS(254) 
1260 NEXT 1 

1270 PRINT FNlocS(5,28);" ";CHRS(228);CHRS(227);“h 
ristian. ";CHR$(226);CHRS(225);"roger presents " 
12B0 • 

1290 FOR 1=1 TO 1000:NEXT 1:PRINT:PRINT:PRINT:PRIN 
T 

1300 1 

1310 PRINT CHRS(133);SPG(10)"@#####"SPC(5)"@IMHMt#tt 
##“;SPC(4);"§»##»»";SPC(3);"ei##M";SPC(5);"*##§## 
";SPC(2);"@###»";SPC(4);"!###* 

1320 PRINT CHRS(133);SPC(9);"@H";SPC(2);"0##";SPC 
(3);"e # f"> SPC<1);”###";SPC(l>;"«#«";SPC(2);"« ##";S 
PC(2>;"§##";SPC(3);"§#fe#*";SPC(3)t#";SPC(4) 
;" 011"; SPC (4 );"€ # ft"; SPC (i);" @# # 
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<76> 1330 PRINT CHRS(133);SPC(8);"@##";SPC(4);"@##";SPC 
(6);"§##";SPC(5);"@H";SPC(4 );"§##";SPC(2 );ff#";S 
PC( 1); "@tt#" ;SPC( 1); "@ ##" ;SPC(1);"8 #f";SPC(4);"@##" 
;SPC(3);"@## 

<49> 1340 PRINT CHRS (1 33 ); SPC( 8 ); "0 (t # " ; SPC( 4 ); "0 ## " ; SPC 
(6);"8##";SPC(5);"@ ; SPC (4);"@ ##"; SPC(2);"@; S- 

PC( 2);"0##fiIt";SPC( 2); "8tl#";SPC(4);" 0 # II"; SPC (3); "0# 

<54> 1350 PRINT CHRS(133);SPC(8);"0#########";SPC(6);"@ 
##";SPC(5);"8##";SPC(4);"8##";SPC(2);"@#*»;SPC(9); 
"@t#";SPC(4);"H#";SPC(3);"@## 

<21 > 1360 PRINT CHRS (133 ); SPC( 8); "0 ##" ;SPC( 4 ); "§ # |f" ;SPC 
(6);"§##";SPC(6); "8#II";SPC( 2);”0##";SPC(3);"8##";S 
PC(9);"§##";SPC(4);"0##";SPC(4);"0 ##";SPC(1);"0## 
<72> 1370 PRINT CHR$(133);SPC(9);"8##";SPC(2);"8##";SPC 
( 6 ); "@####" ;SP,C(6); "@#####" ;SPC(3 ); "0«#Ulf" ;SPC(7 ); 
"8«##r , ;SPC(2);"@ttH#";SPC(4 );"0##t#. 

<89> 1380 PRINT 

<79> 1390 FOR 1=1 TO 19 

<19> 1400 PRINT FNlocS( 22 ,42-INT(1/2));:PRINT CHR$(255) 

;RIGHTS(LEFTS("Das Spiel der Atome",1),1);CHR$(254 

<17> 1410 NEXT 1 

<87> 1420 PRINT FNlocS(22,33);" Das Spiel der Atome " 

< 1> 1430 ' 

<28> 1440 FOR 1=1 TO 35 

< 3> 1450 PRINT FNlocS{24,42-INT(1/2));:PRINT CHRS(255) 

;RIGHTS(LEFTS("Brauchen Sie eine Spielanleitung ?? 

" , 1),1);CHRS(254 ) 

<32> 1460 NEXT 1 

<27> 1470 PRINT FNlocS(24,25);:PRINT " Brauchen Sie ein 
e Spielanleitung ?? " 

<25> 1480 PRINT FNlocS(26,40);:PRINT "(J/N) 

<51> 1490 WHILE INKEYS:WEND 

<73> 1500 antS=LOWER$(INKEYS):IF ant$="" THEN 1500 
<52> 1510 IF antS="j" THEN 1550 
<37> 1520 IF ants="n" THEN 1920 
<57> 1530 antS="":GOTO 1500 

< 6> 1540 1 

< 9> 1550 ' Spielanleitung _ 

<12> 1560 ' 

<36> 1570 PRINT cls$ 

<84> 1580 PRINT "... ";invonS;" Spielanleitu 
n g " 

<46> 1590 PRINT:PRINT invoffS;"... ";invonS;". A. T 

. O. M. I. C. " 

<46> 1600 PRINT:PRINT invoffS;"... ";invonS;" by.. Chri 
stian. TROGER" 

<91> 1610 PRINT invoffS:PRINT 

<46> 1620 PRINT TAB{15);"Sie, der berühmteste Atomforsc 
her des Universums, haben wieder 
<49> 1630 PRINT:PRINT TAB(2l);"einen neuen Stoff entdec 
kt, und zwar mit dem Namen 

<17> 1640 PRINT:PRINT TAB(18);"Superclortrisulfidpentox 
id. Doch durch eine Kernspaltung 
<48> 1650 PRINT:PRINT TAB(l7);"teilte sich der Stoff in 
5 Moleküle, und diese wiederum in 
<79> 1660 PRINT:PRINT TAB(16);"einzelne Atome. Versuche 
n Sie nun die einzelnen Atome zu den 
<16> 1670 PRINT:PRINT TAB(14);"Molekülen zusammenzufüge 
n. Doch die Zeit ist knapp denn in genau 
<19> 1680 PRINT:PRINT TAB(10);"3 Minuten werden die Ato 
me explodieren !! Wiederholt sich dieser Vorgang 
<18> 1690 PRINT:PRINT TAB{23);"3 mal, hat dies einen Su 
per - GAU zur Folge !! 

<22> 1700 PRINT:PRINT:PRINT TAB(20);CHRS(253);CHR$(252) 

;CHRS(2 4 8);CHRS(2 4 9);SPC(3 5);CHRS(245);CHRS(2 4 4 );C 
HRS(241);CHR$(240) 

<32> 1710 PRINT TAB(20);CHRS(251);CHR$(250);CHRS(247);C 
HRS(2 46);SPC(3 5);CHRS(24 3);CHRS(242 );CHRS(238);CHR 
S(239 ) 

<87> 1720 PRINTrPRINT. TAB(17);"P 1 u t o n i u m a t o 

m. U r a n a t o m 

<40> 1730 PRINT: PRINT ". W e i t e r. . 

geht ' s,. mit. <SPACE> 

<42> 1740 WHILE INKEYSo "" :WEND 
<23> 1750 IF INKEYSo" " THEN 1750 
<37> 1760 PRINT clsS 

<27> 1770 PRINT FNtex$(" Bedienung ",2,25) 

<60> 1780 PRINT:PRINT 

<66> 1790 PRINT TAB(15);"Steuern Sie den Pfeil mit den 
Cursortasten über 

<86> 1800 PRINT:PRINT TAB(15);"das Spielfeld. Wenn Sie 
ein Atom bewegen wollen, 

<34> 1810 PRINT:PRINT TAB(l4);"fahren sie mit dem Pfeil 
auf das Atom, und drücken 

<12> 1820 PRINT:PR1NT TAB(14);”die <RETURN>-Taste. Anse 
hließend fahren Sie in die 

< l> 1830 PRINT:PRINT TAB(15);"Richtung, in die Sie das 

Atom bewegen wollen und 

<34> 1840 PRINT:PRINT TAB(15);"drücken abermals <RETURN 
>. Das betreffende Atom 

<59> 1850 PRINT:PRINT TAB(21);"wird sich in diese Rieht 
ung bewegen. 

<86> 1860 PRINT:PRINT TAB(30);"Abbruch mit <CAN> 

<70> 1870 PR INT:PRINT:PRINT TAB(10);invonS;" Hinweis: " 

;invoffS;". Das Atom hält nur an wenn es auf 

< 4> 1880 PRINT:PRINT.. TAB{20);". ein Hindernis stößt 

(Auch ein anderes Atom ist ein Hindernis) 

<23> 1890 PRINT:PRINT SPC(18);"W eite r..geht ' 

s.. m i t. <space> 

<34> 1900 WHILE INKEYSo"": WEND 
<56> 1910 IF INKEYSo" " THEN 1910 

< 8> 1920 ' 


Llsting ATOMIC.BAS 


<11> 1930 ' ATOM .... laden 

<14> 1940 ' - 

<70> 1950 PRINT FNtexS("Bitte ein Momentchen warten ... 
”,29,24) 

<75> 1960 RUN "atom." 

<23> 1970 ' 

<26> 1980 ’ 

<29> 1990 ' ERROR 
<84> 2000 ' 

< 9> 2010 PRINT clsS 

<69> 2020 OUT 248,ll:OUT 248,12:PRINT FNlocS(10,0);:PRI 
NT TAB(20);invonS;" Fehler Nummer: ";invoff$;". "; 
ERR;".... ";invonS;" in Zeile Nummer: ";invoffS;". 
. ";ERL; 

<84> 2030 PRINT conS;stonS;invoffS;dkl$ 

<79> 2040 END 

Lisling ATOMIC BAS 


LISTING >ATOM<, REMARK = >'<. 

< 1> 10 ' 

< 2> 20 ' 

< 3> 30 1 

<80> 40 '... >>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<< 

<75> 50 ' . . . >>. << 

<29> 60 '... ».A.. T.. 0.. M.. I.. C.« 

<77> 70 1 . . . >>. << 

<92> 80 '... ». Teil.. 2. « 

<79> 90 ' . . . >>. << 

<40> 100 '.. >> Christian.. TROGER« 

<58> IIP ’ . . >>. << 

<86> 120 '.. >>. (C).. 1 9 9 0. « 

<62> 130 ' . . >>. << 

<70> 140 ' . . >>>>>>>»»>>>»>><<<<<<<<<«<««<<< 

<28> 150 ' 

<30> 160 ' 

<32> 170 ' 

<34> 180 ' Variablenbennung 
<36> 190 ' 

<23> 200 OPTION RUN:DEFINT a-z:ON ERROR GOTO 3880 
<21> 210 ' 

<38> 220 esc$=CHR$(27) 

<12> 230 clsS=escS+"E"+escS+"H" 

<36> 240 con$=esc$+"e" 

<89> 250 coff$=escS+"f" 

< 2 l> 260 ston$=escS+"l" 

<8i> 270 stoff$=esc$+"0" 

<55> 280 invon$=esc$+"p" 

<12> 290 invoff$=esc$+"q" 

<78> 300 hom$=esc$+"H" 

<41> 310 y$=esc$+"y" 

<24> 320 ' 

<96> 330 DEF FNgt(x)=INT(x/16)»10+X MOD 16 

<14> 340 DEF FNzS(x)=RIGHT$("00"+MIDS(STRS(X),2),2) 

<54> 350 DEF FNlocS(x,y)=esc$+"Y"+CHRS(31+x)+CHRS(31+y) 
<41> 360 DEF FNwinS(a,b,c,d)=escS+"X"+CHR$(31+a)+CHR$(3 
1+b)+CHRS(31+c)+CHR$(31+d) 

< 3> 370 level=l:time=0 

<18> 380 DIM xstein(60):DIM ystein(60) 

<68> 390 DIM merk(29,91) 

<21> 400 ' 

<23> 410 ' DATAZEILEN für Level's 

<25> 420 ' - 

<27> 430 ' Level 1 

<56> 440 DATA 7,41,9,41,11,41,13,41,13,45,13,49,9,49 

< 7> 450 DATA 27,41,25,41,23,41,23,45,21,45,19,45 
<34> 460 DATA 27,57,25,57,23,57,21,57,21,61 

<70> 470 DATA 25,73,23,73,21,73 

<83> 480 DATA 17,81,17,77,17,73,17,69 

<80> 490 DATA 7,37,27,81,15,81 

<11> 500 DATA 25,12,25,8,25,16 

<24> 510 1 

<26> 520 ' Level 2 

<45> 530 DATA 7,41,9,45,11,49,13,53,15,57,15,61,13,65,1 
1,69,9,73,7,77 

<52> 540 DATA 13,41,15,41,17,41,17,45,19,45,21,45 
<12> 550 DATA 23,41,23,45,23,49,23,53,23,57,23,61,23,65 
,23,69,23,73,23,77,25,45 

<59> 560 DATA 17,57,17,61,19,53,19,65,21,49,21,69,25,77 
<57> 570 DATA 13,77,13,81,15,77,15,81,17,73,17,77,19,77 
<78> 580 DATA 25,49,25,57,25,61,25,65,25,69 
<46> 590 DATA 19,49,27,73,15,69,7,37,25,12,23,12,25,16, 
23,19 

<23> 600 1 Level 3 

<29> 610 DATA 7,41,9,41,11,41,13,41,15,41,17,41,19,41,2 
1,41,27,37,7,45,7,49,7,53,7,57 
<61> 620 DATA 9,57,11,57,13,57,15,57,17,57,19,57,21,57, 
13,49,15,49,17,49,19,49,21,49,23,49 
<93> 630 DATA 25,49,27,49,9,65,11,65,13,65,15,65,17,65, 
19,65,21,65,23,65,25,65,27,65 
<13> 640 DATA 27,69,27,73,27,77,27,81,25,81,23,81,21,81 
,19,81,17,81,15,81,13,81,7,73 

< 8> 650 DATA 9,73,11,73,13,73,15,73,17,73,19,73,21,73 
<61> 660 DATA 7,37,9,45,25,69,25,77,9,53,25,12,23,12,23 

,16,27,12,27,8 
<37> 670 ' Level 4 

<59> 680 DATA 11,57,11,53,11,49,11,45,13,45,15,45,17,45 
,19,45,21,45 

<57> 690 DATA 21,49,21,53,21,57,15,57,15,61,15,65,15,69 
,15,73,17,65 

l.isting ATOM BAS 
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<97> 2340 RETURN 

< 6> 2350 ' Level 2 * * * * 

< 1> 2360 RESTORE 520:FOR 1=1 TO 46 

<23> 2370 READ xstein(1),ystein(1):NEXT l:stein=46 
<32> 2380 FOR 1=1 TO 3:READ leerxpos(1),leerypos(1):NEX 
T l:leer=3 

<65> 2390 READ vollxpos,vollypos 
<23> 2400 READ fmvxpos,fmvypos 

<18> 2410 FOR 1=1 TO 3:READ fmlxpos(1),fralypos(1):NEXT 
l:fmleer=3 
<93> 2420 RETURN 

< 2> 2430 ' Level 3 * * * * 

<38> 2440 RESTORE 600:FOR 1=1 TO 57 

< 9> 2450 READ xstein(1),ystein(1):NEXT l:stein=57 

< 6> 2460 FOR 1=1 TO 4:READ leerxpos(1),leerypos(1):NEX 

T l:leer=4 

<61> 2470 READ vollxpos,vollypos 
<47> 2480 READ fmvxpos,fmvypos 

<20> 2490 FOR 1=1 TO 4:READ fmlxpos(1),fmlypos(1):NEXT 
1:fmleer=4 
<B9> 2500 RETURN 
<97> 2510 ’ Level 4 * * * * 

<30> 2520 RESTORE 670:FOR 1=1 TO 32 

<88> 2530 READ xstein(1)»ystein(1):NEXT l:stein=32 

<79> g =1 T0 5:READ leerxpos(1),leerypos(l):NEX 

<57> 2550 READ vollxpos,vollypos 
<43> 2560 READ fmvxpos,fmvypos 

<93> 2570 FOR 1=1 TO 5:READ fmlxpos(1),fmlypos(1):NEXT 
l:fmleer=5 
<14> 2580 RETURN 
<22> 2590 ' Level 5 * * * * 

<76> 2600 RESTORE 740:FOR 1=1 TO 38 
<57> 2610 READ xstein(1),ystein(1):NEXT l:stein=38 
<53> 2620 FOR 1=1 TO 6:READ leerxpos(1),leerypos(1):NEX 
T l:leer=6 

<53> 2630 READ vollxpos,vollypos 
<39> 2640 READ fmvxpos,fmvypos 

<67> 2650 FOR 1=1 TO 6:READ fmlxpos(1),fmlypos(1):NEXT 
l:fmleer=6 
<10> 2660 RETURN 
<18> 2670 ' 

<2i> 2680 ' Rand einiesen 

<24> 2690 ' - 

<20> 2700 DATA 5,33,5,37,5,41,5,45,5,49,5,53,5,57,5,61, 

5.65.5.69.5.73.5.77.5.81.5.85 

<83> 2710 DATA 7,33,7,85,9,33,9,85,11,33,11,85,13,33,13 
,85,15,33,15,85,17,33,17,85 

<69> 2720 DATA 19,33,19,85,21,33,21,85,23,33,23,85,25,3 

3.25.85.27.33.27.85.29.33.29.85 

< 7> 2730 DATA 29,37,29,41,29,45,29,49,29,53,29,57,29,6 

1,29,65,29,69,29,73,29,77,29,81, 

<11> 2740 ' 

<56> 2750. RESTORE 2700 
<84> 2760 FOR 1=1 TO 50 
<61> 2770 READ xstein(1),ystein(1) 

<69> 2780 PRINT FNwinS(xstein(1)»ystein(1),4,8);:GOSUB 
2810:merk(xstein(l),ystein(l ))=100 
<76> 2790 NEXT 1:RETURN 

< 1> 2800 

< 4> 2810 

< 7> 2820 
<10> 2830 


Zeichendarstellungen 


Stein zeichnen * * * 

<13> 2840 ' 

<10> 2850 PRINT CHRS(237);CHR$(236);CHR$(233);CHR$(232) 
<38> 2860 PRINT CHRS(235);CHR$(234);CHR$(230);CHR$(231) 
;hom$ 

<17> 2870 RETURN 
<25> 2880 ' 

<28> 2890 ' volles Atom zeichnen * * * 

< 3> 2900 ' 

<29> 2910 PRINT CHRS(253);CHR$(252);CHRS(248);CHRS(249 ) 
<37> 2920 PRINT CHRS(251);CHRS(250);CHR$(247);CHR$(246) 
; homS 

<12> 2930 ' 

<10> 2940 RETURN 
<18> 2950 ' 

<21> 2960 ' leeres Atom zeichnen * * * 

<24> 2970 ' 

<79> 2980 PRINT CHRS(245);CHRS(244);CHRS(241);CHRS(240) 
<10> 2990 PRINT CHRS(243);CHRS{242);CHRS(238);CHRS(239) 
; homS 
<85> 3000 ' 

<83> 3010 RETURN 
<91> 3020 ' 

<94> 3030 ' Explosion Atome 

<97> 3040 ' - 

<90> 3050 FOR 1=1 TO 15 

<52> 3060 FOR p=l TO 16 

<62> 3070 OUT 246,1 

<76> 3080 NEXT p 

<13> 3090 FOR p=16 TO 0 STEP -1 

<48> 3100 OUT 246,p:OUT 248,ll:OUT 248,12 

<13> 3110 NEXT 

<92> 3120 NEXT 

<23> 3130 PRINT FNwinS(5,33,100,100);clsS 
<59> 3140 PRINT FNwinS(1,1,100,100) 

<47> 3150 PRINT FNlocS(12,33); 

<50> 3160 PRINT SPC(8);"A tome.. expl 


Listing ATOM. BAS 


o d i e r t 


<47> 

<48> 

<16> 

< 73 > 
< 8 > 
<95> 

<98> 
< 2 > 
<31> 
<67> 
<57> 
<58> 
<98> 
<33> 
<39> 
< 2 > 
<82> 
<36> 
< 7> 
< 10 > 
< 13 > 
<92> 

<90> 


3170 expl=expl+l:PRINT FNlocS(14,33); 

3180 PRINT ". E x p 1 o s l o n:... x";expl 

3190 FOR 1=1 TO 3500:NEXT 1:PRINT FNwinS(5,33,100, 

100);clsS 

3200 IF expl=3 THEN 3230 
3210 GOTO 980 
3220 ' 

3230 'GAME. OVER 

3240 ' - 

3250 PRINT FNwinS(5,33,100,100);clsS 
3260 PRINT FNwinS(1,1,100,100) 

3270 FOR 1=1 TO 8 
3280 PRINT FNlocS(12,33); 

3290 PRINT SPC(7);"G. A. M. E.. 

3300 FOR p=l TO 150:NEXT p 
3310 PRINT FNlocS(12,33); 

3320 PRINT SPC(34) 

3330 FOR p=l TO 150:NEXT p:NEXT 
3340 GOTO 2010 
3350 ’ ' 

3360 ' Atomstellung prüfen 
3370 ' - 


O. V. E. R 


<49> 


t e: n SPC(12);INT((level 


T a 


d r ü 


3380 IF level=l AND merk(vollxpos,vollypos-4)=200 
AND merk(vollxpos,vollypos+4)=200 THEN 3440 
3390 IF level=2 AND merk(vollxpos-2,vollypos)=200 
AND merk(vollxpos,vollypos+4)=200 AND merk(vollxpo 
S-2,vollypos+8)=200 THEN 3440 
<78> 3400 IF level=3 AND merk(vollxpos-2,vollypos)=200 
AND merk(vollxpos-2,vollypos+4)=200 AND merk(vollx 
pos+2,vollypos)=200 AND merk(vollxpos+2,vollypos-4 
)=200 THEN 3440 

<80> 3410 IF level=4 AND merk(vollxpos-2,vollypos)=200 
AND merk(vollxpos-4»vollypos)=200 AND merk(vollxpo 
s+2»vollypos)=200 AND merk(vollxpos,vollypos-4)=20 
0 AND merk(vollxpos,vollypos-8)=200 THEN 3440 
3420 IF level=5 AND merk(vollxpos-2,vollypos-4)=20 
0 AND merk(vollxpos-4,vollypos-8)=200 AND merk(vol 
lxpos+2,vollypos-4)=200 AND merk(vollxpos-2,vollyp 
os+4)=200 AND merk(vollxpos,vollypos+4)=200 AND me 
rk(vollxpos+2,vollypos+4)=200 THEN 3440 
3430 GOTO 1260 
3440 ' 

3450 ' Atomstellung richtig 

3460 ' - 

3470 time=(mi*60+se)*140 
3480 PRINT FNwinS(5,33,100,100);cls$ 

3490 PRINT FNwinS(1,1,100,100) 

3500 PRINT FNlocS(12,33); 

3510 PRINT SPC(9);"M o 1 e k Ü 1:";SPC(10);level.. 
3520 PRINT FNlocS(14,33); 

3530 PRINT SPC(9);"Z e l t:"SPC(16);FNz$(mi): " 
;FNz$(se) 

3540 PRINT FNlocS(16,33); 

3550 PRINT SPC(9);"P unk 
*300)-(time/200)-(vers*3)) 

3560 PRINT FNlocS(19,33); 

3570 PRINT SPC(7);"B i t t 
k e n 

3580^punkte=INT(punkte+ ((level*300)'- (time/200)-(ve 
3590 level=level+l 

3600 PRINT FNlocS(7,24);:PRINT level 
3610 PRINT FNlocS(12,19);:PRINT USING "#######";pu 
nkte 

3620 WHILE INKEY$<>"":WEND 
3630 IF INKEY$= n " THEN 3630 
3640 IF level=6 THEN 3670 
3650 PRINT FNwinS(5,33,100,100);cls$ 

3660 GOTO 980 
3670 1 

3680 1 Level 5 geschafft 

3690 ' - 

3700 PRINT FNwinS(5,33,100,100);cls$ 

3710 PRINT FNwinS(1,1,100,100) 

3720 FOR 1=1 TO 8 
3730 PRINT FNlocS(12,33); 

3740 PRINT SPC(4);"S U P E 

3750 FOR p=l TO 250:NEXT p 
3760 PRINT FNlocS(12,33); 

3770 PRINT SPC(40) 

3780 FOR p=l TO 250:NEXT p:NEXT 1 
3790 GOTO 2010 
3800 ' 

3810 ' Zeitberechnung 

3820 ' - 

3830 mi=FNgt(PEEK(64503!)) 

3840 se=FNgt(PEEK(64504! )) 

3850 PRINT FNlocS(17,20);:PRINT FNz$(mi);" 

$ (se) 

3860 IF mi=3 THEN 3020 
3870 RETURN 
3880 ' 

3890 ' ERROR 

3900 ' - 

3910 PRINT y$;cls$;con$;invoff$:OUT 248,ll:OUT 248 

,12 

3920 PRINT:PRINT invonS;" ERROR ";invoff$ 

3930 PRINT:PRINT:PRINT ". Nummer:... ";ERR 

3940 PRINT:PRINT ". Zeile:_ ";ERL 

3950 END 


<14> 
< 6 > 

< 9> 
< 12 > 
<19> 
<44> 
<80> 
<40> 
<29> 

< 86 > 

<73> 

<33> 

<57> 

< 0 > 

< 66 > 

< 5> 

< 5> 

< 7> 
<28> 

<36> 
<60> 
<86> 
<39> 
<31 > 
<19> 
<22> 
<25> 
<26> 
<62> 
<52> 
<53> 
<68> 

<73> 

<62> 

<72> 

<23> 

<59> 

< 2 > 

< 5> 

< 8 > 
<52> 
< 86 > 
<71> 

<38> 

<18> 

<26> 

<29> 

< 4> 
<65> 

<34> 

<21> 

<33> 

< 2 > 


!. GESCHAFFT 
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News, News, News 

Aktuelle Neuigkeiten für PCW 

Wieder einmal können wir stolz sagen, daß sich auf dein PCW-Markt noch 
immer etwas tut. Die letzten zwei Monate brachten für uns so einige Überra¬ 
schungen, aber lesen Sie selbst ... 


Seine Texte in LocoScript zu schreiben, 
ist nichts Neues für einen PCWler. Auch 
ein Faxgerät ist für die meisten unter uns 
nichts Besonderes, und die Bedienung 
eines solchen sollte ein jeder nach kur¬ 
zem Studium des Handbuchs erlernen 
können. Trotzdem, ein wenig umständ¬ 
lich und zeitaufwendig ist es doch noch. 

So werden oft Kaffeepausen eingelegt, 
um die Wartezeiten zu überbrücken. Daß 
dies nicht so sein muß, sei hier gleich er¬ 
klärt. Laut Firma Wiedmann ist eine Fax¬ 
karte in Vorbereitung, die den Anwender 
mittels eines LocoScript-Update-Pro- 
gramms in die Lage versetzen wird, seine 
in LocoScript erstellten Texte direkt aus 
dem Textprogramm heraus zu versenden. 
Wer auch noch PROScan besitzt, kann 
mit dem PCW sogar Faxe empfangen. 


Info 

Wiedmann llntemehinensheratung und Handel 

Korl'iniansplalz 2-4 
8045 Ismaning 


Festplatte hoch zwei 

Die Vortex-Festplatte System 2000 
dürfte hinlänglich bekannt sein. Ihr Vor¬ 
teil: Sie kann von einem PCW oder ei¬ 
nem PC genutzt werden, wobei jedem 
Rechner ein Teil des Speichermediums 
zugewiesen wird. Jetzt soll eine Version 
auf den Markt kommen, die besonders 
für Besitzer von zwei PCW-Computem 
interessant sein wird, weil sie gleichzei¬ 
tig von beiden Geräten aus bedient wer¬ 
den kann. Das bedeutet im Klartext: 


Beide PCWs haben gleichzeitig auf die¬ 
selben Daten Zugriff. 

I 

Info 

Wiedmann Unternehmensberatung und Handel 

Korbiniansplatz 2-4 
8045 Ismaning 


Ein bißchen mehr Tempo ... 

... wünscht sich so mancher PCW-Bcsit- 
zer, wenn er sich wieder einmal über die 
langen Wartezeiten bei komplexen Pro¬ 
grammen ärgert. Ab sofort kann man 
seinem Computer wortwörtlich Beine 
machen. So wird ein Sprintermodul an- 
geboten, das eine Speichererweiterung 
in sich birgt. Kosten soll dieses Modul 
um die 300 DM. Da der Einbau nicht 
gerade unkompliziert ist, wird er auch 
gleich gegen einen geringen Aufpreis 
von JPS erledigt. 

(rs) 


Info 

JOYCE-Platinenscrvice 
Bernhard Graßhof Roesoll 36 
2305 Heikendorf 
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Es ist die Menschheit selbst, 
die Sehiffbrueh erleidet. 


512k Speichererweiterung für CPC 

• RAM-Erweiterung 64. 128, 256 oder 512K (ür alle CPCs 
Alle Versionen nachträglich auf Maximal-Vetsion auirüslbar 

• optional 2 EPROM-Sockol mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2,2 (63K CP/M). Endlich laulan dBase. Multiplan und Wordstar 

• Patchprogramm lür CP/M Plus. CP/M Plus auch für CPC 464/664 

• resellests RAM-Disc (maximal 44BK) für CP/M 2.2 und CP/M Plus 

• resetloste RAM-Disc unter BASIC (nur bei EPROM-Varslon) 

• 100% kompatibel zu dk’tronics RAM-Erweiterung und Sllicon-Disc 

• Anschluß überden Expanslonsporl (kein Eingriff In den Rechner nötig) 

• geringe Abmessungen (mll Gehäuse; 160 x 83 x 20 mm) durchgofühttor Erweiterungsbus 

RAM-Erweiterung mit Sotlwaro lür CP/M 2.2 und CP/M Plus aut 3"-D!skotto 
(wahlweise auch 35'- oder 5.25'-Diskette) 

Preise; ohne RAMs.119,- DM 64 KByte 149,- DM 128 KByte 199,- DM 

256 KByte.269,- DM 512 KByte.419,- DM 

Aufpreis für zusätzliche EPROM-Sockol und Software im EPROM 49 ~ DM 


Universeller EPROM-Programmer 4003 für Schneider 

IBM PC & CPC 464/664/6128 



• Programmiert alle gängigen EPROM- und 
EEPROM-Typen (z.B, 2716. 27C16, 2732, 2732A, 
27C32, 2758, 2764, 2764A, 27C64. 27128, 27128A, 
27C128, 27256. 27C256. 250a 2532, 2564.X2804A. 
X2816A, X2864A,,.) 

• Menügosteuerte Software aut Cassetfe/Disketto 

• 32 KByte Ire! für EPROM-Dalen (Brennen des 27256 
ohne Nachladen) 

• Kein Umschalten, Sleckon oder Löten nötig 

• Programmierspannungen werden im Gerät erzeugt 

• Verbindung zum Rechner über Flachbandkabel und 
Intertace-Karte (CPC-Version mit durchgotührtem Ex¬ 
pansionsport) 

• Rote und grüno LED zur Betriebsartenanzeige 

• Komplett mit 28poligem Texttool-Sockel 


CPC-464/664 Komplettgerät 0M 28950 Bausatz DM239,- 
CPC-6128 Komplottgerät DM 319,50 Bausalz DM 269.- 

PC-1512-Komplettgerä! DM399,50 Bausatz DM349,- 

• Aufpreis für CPC-Sottwaro auf 3"-Dlsketle slatt Cassetfe 0M 15.- • 


EPROM- Karte 224 KByte für alle CPC 


• Für die EPROM-Typen 2764, -128, -256 

• ROM-Nummern 0-15 frei v/ählbar 

• y Sockel 

• Bel 27256 zwei ROM-Nummern pro Sockel 

• Durchqeführter Expansionsport 

Software zum automatischen Erslellen von Programmodulen (BASIC und BIN-uateien) 


Fertiggeräl lür CPC 464/664 
Modul-Software auf 3"-Diskette 


DM 145,- Fertiggeräi für CPC 6128 
DM 95.- 

Zubehör für EPROM-Karten 

EPROM 2764 DM 7,50 Protetf-EPROM DM124,- Maxam-EPROM 

EPROM 27128 DM 8,50 Promerge Plus-EPROM DM114.- Utopia 

EPROM 27256 DM10,50 X DD0S EPR0M DM 99,- Alpha-ROM 

EPROM 27512 DM 17.50 Time-ROM (batteriegepulferte Echlzeliuhr) + EPROM 


DM 169,- 


DM 124,- 
DM 94.- 
DM 35.- 
DM 135. 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 062 02/71417 
Telefax 06202/75509 
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Im Herzen des JOYCE 


Teil 1: Restart-Vektoren 
und BIOS-Jumpblocks 

Will ein Programmierer seine Programme besonders schnell machen, so 
wird er direkt mit dem Prozessor seines Rechners kommunizieren, sprich: 
sein Programm in Maschinensprache schreiben müssen. Will er jedoch nicht 
alles alleine machen, kann er für die Programmierung der Ein-/Ausgabe- 
sequenzen auf die Routinen des Betriebssystems zurückgreifen. CP/M Plus, 
das Betriebssystem der JOYCE-Rechner (PCW 8256/8512), bietet hier mit 
seinen BDOS-Funktionen schon viele Möglichkeiten. 


Die Programmaufrufe der BDOS-Funk¬ 
tionen sind weitgehend standardisiert; 
Parameterübergabe und -rückgabe sind 
vorgegeben, und solange diese Vorga¬ 
ben eingehalten werden, kann nicht viel 
passieren. Ist man damit jedoch noch 
nicht zufrieden, bietet der JOYCE wei¬ 
tere Möglichkeiten. 

Der nächste Schritt, der Aufruf und die 
Verwendung der BIOS-Funktionen, ist 
dann allerdings schon etwas für erfahre¬ 
ne Programmierer. Hier werden aus¬ 
führliche Kenntnisse der Hardware be¬ 
nötigt, denn viele BIOS-Funktionen 
können noch nicht einmal vom Anwen¬ 
derprogramm aufgerufen werden, da sie 
in einer anderen Speicherbank "residie¬ 
ren". Steigt man noch weiter hinab, will 
man direkt mit der Peripherie kommuni¬ 
zieren, die Verwaltung des Speichers 
selbst übernehmen oder spezielle An¬ 
wendungen programmieren, sind die 
Experten gefragt, jene Programmierer, 
die auch vor der Benutzung der ROM- 
Routinen nicht zurückschrecken. Sie 


merken sicher schon, daß einiges an 
Grundwissen vorhanden sein muß, um 
"an der Maschine" zu programmieren. 

Ich will mich jedoch bemühen, auch den 
noch nicht so versierten Programmie¬ 
rern den Einblick in das Betriebssystem 
des JOYCE zu ermöglichen. Wer die 
Besitzer der CPC-Computer bisher um 


ihre ROM-Routinen und ROM-Funk- 
tionen beneidet hat, wird feststellen, daß 
der JOYCE ähnliches zu bieten hat, hier 
jedoch nicht im ROM, sondern im BIOS 
des Systemprogramms. 

Kerniges BIOS 

Der BIOS-Kem des JOYCE ist in ver¬ 
schiedene funktionale Abschnitte unter¬ 
teilt. Jeder dieser Abschnitte hat die 
Aulgabe, die Kommunikation mit be¬ 
stimmten Ein-/Ausgabeeinheiten zu 
verwalten und zu unterstützen. Diese 
Abschnitte liegen fast ausschließlich im 
Speicherblock #0 und sind damit in al¬ 
len Speicherbänken, mit Ausnahme der 
Bank I (TPA), für den Prozessor er¬ 
reichbar. Die Zuordnung von Pro¬ 
grammsegmenten zu bestimmten Gerä¬ 
ten beziehungsweise Aufgaben erlaubt 
es, die Eigenschaften eines Peripherie¬ 
geräts optimal zu nutzen, so daß ein An¬ 
wenderprogramm ohne Schwierigkei¬ 
ten mit der Peripherie kommunizieren 
kann. Die Adreßlage dieser Segmente 
können Sie der Tabelle 1 entnehmen. 
Leider gibt es über diese Betriebssy¬ 
stemsegmente nur sehr wenig "offiziel¬ 
le" Dokumentation, so daß der interes¬ 
sierte Programmierer weitgehend auf 
die eigene Phantasie und Erfahrung an¬ 
gewiesen ist. Darum hier also ein erster 
Einblick in die Betriebssystemroutinen 
des JOYCE-BIOS. Bevor wir jedoch 
auf diese Routinen zugreifen können, 
müssen wir uns entweder in der Spei¬ 
cherbank 0 oder einer anderen CP/M- 
Bank (mit Ausnahme der TPA, Bank 1) 
befinden. Da die Aufteilung und Struk¬ 
tur des Speichers im JOYCE schon 
längst kein Geheimnis mehr darstellt, 
sei hier nur das Wichtigste kurz zusam¬ 
mengefaßt: Eine Speicherbank (64 
kByte) besteht beim JOYCE aus vier 
Speicherblöcken zu je 16 kByte. Diese 
Speicherblöcke werden normalerweise 
vom BIOS verwaltet und konfiguriert. 


1. 

RST 

Restart-Vektoren und BIOS- Jumpblocks ^ $0000 

2. 

CD 

Communications Driver 

$010A 

3. 

TH 

_ 

Terminal-Emulator 

$0530 

4. 

DD 

Disc Driver 

S0BC0 

5. 

KM 

Keyboard Manager 

$1100 

6. 

SCR 

Screen Driver 

$14E0 

7. 

DDL 

Disc Driver (FDC Interface) 

$1C2() 

8. 

KL 

Kernel 

$1E40 


TaMk I: Die Programmsegmente des JOYCE-BIOS und deren Startadressen im Speicherblock ftO 


100 PC 6/7’91 





PCW—1 


1. Funktionen des Disk-Treibers 

DD INIT 

DD SETUP 

DD READ SECTOR 

DD WRTTE SECTOR 

DD CHECK SECTOR 

DD FORMAT 

DD LOG IN 

DD SEL FORMAT 

DD DRIVE STATUS 

DD READ ID 

DDLDPB 

DPB DD LXDPB 

DD L ON MOTOR 

DD L T OFF MOTOR 

DD L OFF MOTOR 

DD L READ 

DD L WRITE 

DD L. SEEK 

$0080 

$0083 

$0086 

$(X)89 

S008C 

$008F 

$(X)92 

$0095 

$0098 

$009B 

$009E 

$00A 1 

$(X)A4 

S00A7 

$00 AA 

$00 AD 

$(X)B() 

S00B3 

initialisiert den Disk-Treiber 
legt die Laufwerksparanieter neu fest 
liest einen Sektor von der Diskette 
schreibt einen Sektor auf die Diskette 
überprüft einen Sektor der Diskette 
formatiert eine Spur 
meldet ein Laufwerk neu an 
wählt ein Standardformat 
liest den Status des spezifizierten Laufwerks 
liest die Sektorkennung des nächsten Sektors 
initialisiert einen DPB-Standard 
initialisiert einen extended DPB (XDPB) 
schaltet Floppy-Motor ein (Einschaltverzögerung) 
startet die Ausschalt Verzögerung für den Motor 
schaltet den Motor aus (ohne Verzögerung) 
Lesekommando direkt an FDC senden 
Schreibkommando direkt an FDC senden 
fährt eine bestimmte Spur auf der Diskette an 
___ 

2. Funktionen des I/Ö-Treibers 

CD VERSION 

CD INFO 

CD SA INIT 

CD SA BAUD 

CD SA PARAMS 

$00E3 
$00 E6 
$(X)B6 
$00 B 9 
$00BC 

übergibt die BlOS-Versionsnummer 

liefert Systeminfo (Hardware-Konfiguration) 

initialisiert die SIO 

setzt die Baud-Rate für die SIO 

liefert die aktuellen Einstellungen der SIO 

3. Funktionen des Terminal-Emulators 

TE ASK 

TE RESET 

TESTLASK 

TE STL ON OFF 

TE SET INK 

TE SET BORDER 

TE SET SPEED 

$00BF 

S00C2 

S00C5 

S00C8 

SOOCB 

SOOCE 

S0OD1 

liest Cursoiposition und Fenstergöße 
reinitialisiert den Terminal-Emulator 
ist die Statuszeile eingeschaltet? 
schaltet die Statuszeile ein bzw. aus 
erlaubt ein Umschalten der Ausgabefarben 
erlaubt ein Umschalten der Ausgabelärben 
legt Zeitperioden für den Farbwechsel fest 

4. Funktionen des Tastaturtreibers 

KM SET EXPAND 

KM SET KEY 

KM KTGET 

KM KT PUT 

KM SET SPEED 

$00 D4 
$0()D7 
$(X)DA 
$0()DD 
$00E0 

speichert Expansions-Strings 
ändert die Übersetzungstabelle für eine Taste 
liest ein Zeichen aus dem Tastaturpuffer 
schreibt ein Zeichen in den Tastaturpuffer 
legt die Zeiten für die Tastaturabfrage fest 

5. Funktionen des Bildschirmtreibers 

SCR RUN ROUTINE 

S00E9 

schaltet das Screen- Environment ein und ruft 
eine spezifizierte Programmroutine auf 

6. Funktionen des CP/M-BIOS 

7BOOT 

7CIST 

7CI 

7COST 

7CO 

70 NIT 

7PDERR 

7PDCHANGE 

7PMSG 

KL MOVE 

SOOEC 

$O0EF 

S00F2 

$00F5 

$00 F8 

$00FB 

$00FE 

$0101 

$0104 

$0107 

führt die System-Initialisierung durch 

liest den Status eines Eingabegeräts 

liest ein Zeichen vom Eingabegerät 

liest den Status eines Ausgabegeräts 

gibt ein Zeichen an ein Ausgabegerät aus 

reinitialisiert die Baud-Rate der SIO 

gibt eine Gerätefchlcrmeldung aus 

gibt die Meldung für Laufwerkswechsel aus 

Ausgabe einer beliebigen Statusmeldung 

ermöglicht bankübergreifenden Datentransfer 


Tabelle 2: Die Funktionen des BIOS, die über den extended BlOS-Jumpblock auf gerufen werden 
können, und ihre Einsprungadressen 


Das CP/M-Betriebssystem selbst bean¬ 
sprucht die Blöcke 0.1,2,3,7 und 8 und 
stellt dem Anwender die Blöcke 4.5,6 
und einen Teil von Block 7 zur Verfü¬ 
gung (auch TPA - Transient Program 
Area genannt). Der Block 7, die soge¬ 
nannte Common Memory, ist normaler¬ 
weise Teil einer jeden Bank. Über die¬ 
sen Block wechselt das BIOS von einer 
Bank in die andere. Die restlichen Bän¬ 
ke, je nach Speicherausbau bis zur Bank 
25, werden durch Ersetzen des Blocks 
#1 in der Systembank (Bank #0) gebil¬ 
det (siehe Abbildung). Um eine gemein¬ 
same Basis zu haben, gehen wir zukünf¬ 
tig davon aus, daß wir zunächst in die 
Systembank (Bank 0) umschalten, be¬ 
vor wir die Systemroutinen aufrufen. 
Diese Umschaltung läßt sich relativ ein¬ 
fach über die BIOS-Funktion #30 
(USERF) durchführen. Damit werden 
dann auch gleich Interrupt-Vektoren 
und Stack-Adressen in die dafür vorge¬ 
sehenen Systembereiche gelegt. Der 
Aufruf dieser BIOS-Funktion erfolgt di¬ 
rekt vom Anwenderprogramm aus mit 
der Befehlssequenz 

CALL 0FC5AH 
DEFW ROUTINE 

wobei ROUTINE die Adresse der ge¬ 
wünschten Systemroutine darstellt. Da 
während der Umschaltung der Spei¬ 
cherbänke die Registerinhalte gesichelt 
werden, können eventuell benötigte Pa¬ 
rameter direkt übergeben werden. 

Beginnen wir nun mit dem ersten Ab¬ 
schnitt des Betriebssystems, den Re¬ 
start-Vektoren und dem XBIOS-Jump- 
block. Restart-(RST-)Befehle funktio¬ 
nieren im Prinzip wie CALL-Befehle; 
beim Aufruf wird die Rückkehradresse 
auf dem Prozessor-Stack gesichert, da¬ 
mit nach dem Ausführen einer Pro¬ 
grammroutine die Rückkehr ins Haupt- 
programm möglich wird. Der Vorteil 
dieser RST-Befehle ist jedoch, daß sie 
im Vergleich zum CALL-Befehl nur ein 
einziges Byte an Speicherplatz belegen. 

Dieser Vorteil wird allerdings dadurch 
wieder relativiert, daß der Z80 Prozes¬ 
sor des JOYCE insgesamt nur acht Re¬ 
start-Befehle kennt und damit wieder¬ 
um nur feststehende Adressen aufrufen 
kann. Diese Adressen liegen allesamt in 
der sogenannten "Zeropage" der aktiven 
Speicherbank des Rechners, im Adreß- 
raum $00-$FF. ln der Befehlssyntax des 
Z80 werden die Adressenzugleich mit 
dem RST-Befehl festgelegt, also zum 
Beispiel RST 0811 oder RST 3011. Auf 
diese Weise lassen sich die Adressen 
$00, $08, $10, §18, $20, §28, $30 und 
$31 direkt aufrufen. In den Betriebssy¬ 
stem-Routinen des JOYCE werden die¬ 
se Befehle, ausgenommen die Befehle 
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$0060 

aktuelle Blocknummer, Adreßbereich $0000 - $3FFF 

$0061 

aktuelle Blocknummer, Adreßbereich $4000 - $7FFF 

$0062 

aktuelle Blocknummer, Adreßbereich $8000 - SBFFF 

$0063 

aktuelle Blocknummer, Adreßbereich SC000 - SFFFF 

$0064 

aktueller System-Ticker (Interrupt-Processing) 

$0065 

Frequenzteiler für Interrupt-Processing 

$007F 

Anzahl der vorhandenen Speicherblöcke 


Tabelle 3: Wichtige Adressen in der sogenannten "Zeropage'' der Bank 0 (Adreßhereich $()()<)() - $0100) 


RST 30H und RST 38H. zur Umschal¬ 
tung der Speicherbänke benutzt. Dabei 
gibt es vorgegebene Umschaltkonfigu¬ 
rationen (RST 00H und RST 08H) und 
"frei" definierbare Konfigurationen 
(RST 20H und RST 28H). Bei den frei 
definierbaren Aufrufen erfolgt die Fest¬ 
legung der Speicherblöcke über einen 
RAM-Control-Block (RAMCB), in 
dem oberer und unterer Speicherblock 
und die Startadresse der Programmrou¬ 
tine, die nach der Speicherumschaltung 
aufgerufen werden soll, definiert sind. 
Die Begriffe "oberer" und "unterer" 
Speicherblock beziehen sich dabei auf 
die Adreßlage im Gesamtspeicher, das 
heißt, der obere Speicherblock belegt 
den Adreßbereich $8000 - $BFFF und 
der untere Speicherblock den Adreßbe¬ 
reich $4000 - $7FFF. Die Speicher¬ 
blöcke #0 (Adreßbereich $0000 - 
$3FFF) und #7 (Common Memory, 
Adreßbereich $C000 - $FFFF) bleiben 
auch bei diesen Speicherkonfiguratio¬ 
nen verfügbar. Für den Aufruf dieser 
Restart-Funktionen aus der TPA heraus 
müssen sowohl der RST-Befehl als auch 
der RAM-Control-Block in der System¬ 
bank oder in der Common Memory lie¬ 
gen. 

Bei allen Restart-Aufrufen zur Spei¬ 
cherkonfiguration werden während der 
Speicherumschaltung die Prozessorre¬ 
gister gesichert und können für die 
Parameterübergabe beziehungsweise 
-rückgabe benutzt werden. 

Die RST-Funklionen und deren Aufruf¬ 
formate im einzelnen: 

RST 00H: schaltet den Speicherblock 
#8 (Bank 2) in den Adreßbereich der 
CPU ein. Die Slartadresse der auszufüh¬ 
renden Routine folgt dem RST-Befehl. 
Beispielaufruf: 

RST 00H 

DEFW Start_Adresse 

RST Ö8H: schaltet das Screen-Environ- 
ment (Block 2) in den Adreßbereich der 
CPU ein. Die Startadresse der auszu füh¬ 
renden Routine folgt dem RST-Befehl. 
Beispielaufruf: 

RST 08H 

DEFW Stare Adresse 

RST 2011: schaltet eine vom Nutzer de¬ 


finierte Speicherkonfiguration in den 
Adreßbereich der CPU ein. Die Adresse 
des RAMCB folgt dem RST-Befehl. 
Beispielaufruf: 

RST 20H 
DEFW RAMCB 

RAMCB DEFW Start_Adresse 
DEFB Lo Block 
DEFB Hi_Block 

RST 28H: schaltet eine vom Nutzer de¬ 
finierte Speicherkonfiguration in den 
Adreßbereich der CPU ein. Der 
RAMCB folgt dem RST-Befehl. 
Beispielaufruf: 

RST 28H 

RAMCB DEFW Start_Adresse 
DEFB Lo_Block 
DEFB Hi_Block 

Weiterhin kann über die Adresse S002B 
eine Speicherumschaltung ähnlich wie 
mit RST 20H / RST 28H erreicht wer¬ 
den. Hier muß vor dem Aufruf die 
Adresse des RAMCB in das HL-Regi- 
sterpaar geladen werden. Der Aufruf er¬ 
folgt dann mit einem "normalen" 
CALL-Befehl. 

Beispielaufruf: 

LD HL, RAMCB 
CALL 002BH 

RAMCB DEFW Start_Adresse 
DEFB Lo_Block 
DEFB Hl_Block 

Listing I zeigt einige Beispiele, wie die¬ 
se Restart-Funktionen vom Anwender¬ 
programm aufgerufen werden können. 

RST 30H: Dieser RST-Befehl stellt eine 
BREAK-Funktion dar und wird norma¬ 
lerweise bei Systemfehlern aufgerufen. 


Nach dem Aufruf befindet sich der Pro¬ 
zessor in einer Endlosschleife, die nur 
durch einen System-Reset (SHIFT-EX- 
TRA-EX1T) wieder verlassen werden 
kann. 

RST 38: wird vom Prozessor für die Be¬ 
arbeitung von Interrupts (IM 1) aufgeru¬ 
fen und leitet das Programm auf die In- 
terrupt-Service-Routine um. 

Jumpblocks 

Das BIOS des JOYCE bietet zwei 
Jumpblocks (Einsprungtabellen): den 
Standard-CP/M3-Jumpblock und einen 
erweiterten (extended) BlOS-Jump- 
block. Der "Standard-Jumpblock" liegt 
in der Common Memory (Startadresse 
beim JOYCE: $FC00) und ist direkt von 
der TPA (Bank 1) zum Aufruf der BIOS- 
Funktionen erreichbar. Der "extended 
Jumpblock" dagegen liegt in der Sy¬ 
stemspeicherbank (Bank 0) und kann 
nur nach vorheriger Speicherbankum¬ 
schaltung erreicht werden. 

Über diesen Jumpblock lassen sich eini¬ 
ge der Systemroutinen aufrufen, die wir 
im weiteren Verlauf dieser Serie näher 
behandeln und erläutern wollen. Da im 
Prinzip nur die gewünschten Aufrufe 
auf die eigentlichen Routinen umgelei¬ 
tet werden, sei der extended Jumpblock 
hier nur der Vollständigkeit halber auf¬ 
geführt. 

Der extended BIOS-(XBIOS-).!ump- 
block stellt eine Spezialität der CP/M-3- 
Implementationen der Amstrad-Rech- 
ner dar, daß heißt er wird sowohl von 
den JOYCE- als auch von den CPC- 
Rechnern unterstützt. Damit wird den 
Programmierern eine quasi stan¬ 
dardisierte Schnittstelle zur Kommuni¬ 
kation mit der System-Software ange- 
boten, die das "programmieren an der 
Hardware" erleichtern soll. Der Aufruf 
der einzelnen XBIOS-Funktionen er¬ 
folgt direkt aus dem Anwenderpro¬ 
gramm heraus über die schon beschrie¬ 
bene BIOS-Funktion #30. 


Adresse 

Bank 0 

Bank 1 

SFFFF 

— 



Block 


$cooo 

7 


1BFFF I Block 1 

Block 


Block 

$8000 1 2 1 

3 


6 

$7 FFF 

Block 


Block 

$4000 

l 


b 

$3FFF 





Block 


Block 

$0000 

0 


4 


Bank 2 


Bank 3 Bank 4 


1 Block | 1 Block 

1 Block 


| 8 | | 9 

1 10 
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Abbildung: Die Speicherorganisation des JOYCE - die weiteren Bänke entstehen, indem der entspre¬ 
chende Block in die Bank 0 eingeblendet wird (anstelle von Block I) 
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Ein Beispiel: 

Wollen Sie die aktuelle Cursorposition 
oder die Größe des gerade aktiven Dar¬ 
stellungsfensters ermitteln, so kann 
hierfür eine Funktion des Terminal- 
Emulators benutzt werden (TE ASK, 
Einsprungadresse $00BF). Der Aufruf 
geschieht dann mit: 

CALL FCSAH 
DEFW TE_ASK 

Die BIOS Funktion schaltet die Spei¬ 
cherbank um, sichert Interrupt-Vektoren 
und Stack-Bereiche und ruft die Adresse 


$00BF im BIOS-Jumpblock auf. Hier 
steht nun ein Sprungbefehl zur eigentli¬ 
chen Systemroutine, die die angeforder¬ 
ten Parameter zusammenstellt und an 
das Anwenderprogramm zurückgibt. 

Tabelle 2 listet alle Funktionen, deren 
Bedeutung und die benutzten Ein¬ 
sprungadressen auf. die über diesen 
Jumpblock erreicht werden können. Die 
in der Tabelle mit "?" gekennzeichneten 
Funktionen entsprechen den Kommuni¬ 
kationsmodulen des CP/M-BIOS. Diese 
Sprung Vektoren werden vom BIOS zur 
Ein- und Ausgabe von Zeichen (Charac- 


ter I/O) und zur Ausgabe von Fehler¬ 
und Statusmeldungen benutzt. 

Neben diesen Sprungvektoren enthält 
dieser "untere" Bereich des Systemspei¬ 
chers aber auch noch weitere interessan¬ 
te Informationen. Hier sind neben den 
Interrupt-Vektoren für die Floppy auch 
die jeweils aktuelle Speicherkonfigura¬ 
tion und die Anzahl der im System vor¬ 
handenen Speicherblöcke gespeichert. 
Details zu diesen Speicherstellen finden 
Sie in Tabelle 3. 

(Norbert Finke/rs) 


;Der folgende Aufruf kann dazu benutzt werden, die Hardcopy-Routine 
;des JOYCE aus einem Anwenderprogramm heraus aufzurufen 

CALL 0FC5AH ;Speicherbank «0 einsehalten 

DEFU HC_Ca11 ;und RST-Befehl ausfUhren 

RET ;danach wieder zurück 

;der RST-Befehl muß in der Common Memory (SC000-SFFF) oder in einer 
;System-Speicherbank stehen 

HC_Call RST 00H ;Speicherbank HZ einschalten 

DEFVI 044D5H ;und Hardcopy-Routine auf rufen 


;0er folgende Aufruf übertragt einen Oatenblock (max. 16 KByte) 

;von einem Speicherblock in den anderen. 

Für die Übertragung wird eine KERNEL-Routine (KL LDIR) benutzt. 
;Ouelladresse (Source_Adr) und Zieladresse (Dest_Adr) liegen 
;i* Adress-Bereich $4000-$BFFF, die Größe des Oatenblocks wird durch 
;'Anzahl' definiert. 


LD HL,Source_Adr 
LD DE,Dest_Adr 
LD BC,Anzahl 
CALL 0FC5AH 
DEFU Blkjil 
RET 


;Quelladresse -> HL 
;Zieladresse -> DE 
;LBnge des Datenblocks -> BC 
;Speicherbank HO einschalten 
;und Transfer durchführen 
;danach wieder zurück 


Der folgende Aufruf übergibt ein Zeichen direkt an den Drucker¬ 
treiber zur Ausgabe an den Drucker 


Hier wird der RST 28H-Befehl zur Speicherumschaltung benutzt, d.h. 
der RAM Control Block folgt direkt dem RST-Befehl. 

RST-Befehl und RAM-Control-Block müssen in der Common Memory oder 
einer System-Speicherbank liegen. 


LD C,Zeichen 
CALL 0FC5AH 
DEFW PRT_CHR 
RET 


;Ausgabezeichen ins C-Register 
;Speicherbank #0 einschalten 
;und RST-Befehl ausfOhren 
;danach wieder zurück 


der RST-Befehl muß wieder in der Common Memory oder in einer System- 
Speicherbank stehen 


PRT_CHR RST 00H 

DEFU 04CB4H 


;Speicherbank HZ einschalten 
;und Druckerausgabe auf rufen 


Der folgende Aufruf übertragt die Matrix eines Zeichens aus dem 
Bildschirmspeicher (Screen-Environment) in einen Puffer in der 
Common Memory. 

Beim Aufruf wird über DE die Zeichenposition und Uber HL die 
Pufferadresse übergeben. 


Blk_m1 RST 028H 

RAMCBl DEFW 023CDH 

DEFB L0_Block 
DEFB HI_Block 


;'LO_Block' und 'HI_Block' einblenden 
;Transfer-Routine aufrufen 
;beliebige Speicherblock-Nummer 
;beiiebige Speicherblock-Nummer 


Mit dem folgenden Aufruf können Daten direkt aus dem Matrix-RAM 
in einen Speicherbereich der RAM-Disk (hier Bank #4) übertragen 
werden. Auch hierbei müssen Source- und Destination-Adressen vorher 
gesetzt werden. 


LD HL,0B80OH 
LD OE,04000H 
LD BC,00800H 
CALL 0FC5AH 
DEFW Blk_m2 
RET 


;Startadresse Character-Matrix-RAM 
;Startadresse in der RAM-Disk-Bank 
;Anzahl der Matrix-Bytes 
;Speicherbank #0 einschalten 
;und Transfer durchführen 
;dann wieder zurück 


LD D,Zeile 
LD E,Spalte 
LD HL,Puffer 
CALL 0FC5AH 
DEFU SCR_Get 
RET 


;Zeichenposition nach DE 

;Pufferadresse nach HL 
;Speicherbank HO einschalten 
;und RST-Befehl ausführen 
;danach zurück 


Der RST-Befehl und in diesem Fall auch der Matrix-Puffer müssen 
in der Common Memory liegen (bzw. in einer Systembank). 

Das Auslesen des Bildschirmspeichers und übertragen der Matrix 
erfolgt durch eine Routine des Bildschirmtreibers (SCR GET MATRIX) 


,'Diesmal erfolgt der Transfer Uber RST 20H, d.h. der RAM-Control- 
;Block liegt, vom Aufruf getrennt, irgendwo in der Common Memory. 

;Selbstverständlich muß der RST-Befehl ebenfalls in der Common Memory 
;oder einer Systembank liegen 

Blk_m2 RST 020H ;Speicher konfigurieren 

DEFW RAMCB2 ;RAM-Control-Block spezifizieren 

;Der RAM-Control-Block liegt, vom Aufruf getrennt in der Common 
;Memory oder einer Systembank. 

;L0_Block und HI_Block müssen vor dem Aufruf definiert sein 


SCR_Get RST 08H ;Screen-Environment einschalten 

DEFW 01764H ;und Matrix übertragen 


RAMCB2 DEFW 023CDH 
DEFB 08AH 
DEFB 082H 


;Adresse der Transfer-Routine (KL LDIR) 
;Blocknummer Block #10 (Bank #4) 


;Blocknummer Block HZ (SCR-Environment) 


Listing Beispiel-Routinen 


Listing Beispiel-Routinen 
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Schnittstelle zur Musik 

Wie man aus einem 

PC eine Sound-Maschine macht 

Sound mit dem PC - die Frage drängt sich auf, was man mit den Rechnern 
eigentlich nicht machen kann. Antwort: Kaffee kochen geht noch nicht, 
Musik ist aber durchaus machbar, und zwar mit der SOUND- 
BLASTER-Karte von CPS. 


Daß Musik hören sehr viel Freude ma¬ 
chen kann, ist bekannt. Das Erzeugen 
von Tönen und Selbstspielen von Lie¬ 
dern aller Art macht aber noch mehr 
Spaß - vorausgesetzt, daß man singen 
oder ein Instrument spielen (oder bei¬ 
des) kann. Darüber hinaus kann man 
aber auch mit dem Computer Musik 
machen oder Musik neu abmischen. Die 
uns zum Test vorliegende SOUND¬ 
BLASTER bietet für Freunde der 
(selbstgemachten) Musik diesbezüglich 
viele interessante Möglichkeiten. 

Da die Karte in der Werbung eine Men¬ 
ge versprach, unter anderem auch die 


Lauffähigkeit auf XT-Rechnem, wurde 
sie auf einem XT- und einem AT-Rech- 
ner getestet. Auf beiden Computern war 
ein Arbeiten mit der Karte problemlos 
möglich. 


Als Testrechner wurden ein NO-Name- 
XT-Turbo und ein AMSTRAD PC2286 
verwendet. Im XT war eine Hercules- 
Monocrom-Grafikkarte mit Monitor 


und 640 kByte Arbeitsspeicher einge¬ 
baut, während der PC2286 über eine 
VGA-Ausstattung und 1 MByte RAM 
verfügte. Auf den Festplatten beider 
Rechner war MS-DOS 4.01 eingerich¬ 
tet. 

Befreit von der stabilen Verpackung ka¬ 
men die SOUND-BLASTER-Steckkar- 
te selbst, sowie je zwei 5,25- und 3,5- 
Zoll-Disketten. ein Kabel und ein deut¬ 
sches, recht umfangreiches Handbuch 
zum Vorschein. Mit der sehr ausführli¬ 
chen Anleitung des Handbuches war es 
auch für Einsteiger möglich, die Kalte 
im Rechner einzubauen. 

Mit der Software gab es dann aber kurz¬ 
fristig Probleme, da die Beschriftung 
der Disketten etwas in die Irre führte. Ist 
diese Hürde überwunden, kopiert man 
die SOUND-BLASTER-Programme 
mit dem vorhandenen Installationspro- 
gramm auf die Festplatte in drei Unter¬ 
verzeichnisse. Durch das Starten eines 
kleinen Testprogramms kann man dann 
feststellen, ob der Einbau der Karte und 
das Einrichten der Software einwand¬ 
frei geklappt hat und es keine Adressen¬ 
konflikte gibt. 


SOUND BLASTER ist 
auch für XT-Rechner 
geeignet 
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Bild 1: 

ORGAN-Die Orgel 
für Ihren PC 



22J-sti>rt/stop ftuto-bass-chord 


Da sich aut' der SOUND-BLASTER- 
Karte ein Gameport befindet, ist es zu 
empfehlen, einen eventuell bereits vor¬ 
handenen Joystick-Anschluß abzu¬ 
schalten. Ist das nicht möglich, läßt sich 
der Gameport der Karte deaktivieren. 
Sowohl die Überprüfung der Adressie¬ 
rung mit eventuell notwendiger Ände¬ 
rung als auch die Handhabung des 
Gameports sind im Handbuch ausführ¬ 
lich beschrieben. 

Einfache und gut 
beschriebene Installation 

ORGAN ist das Hauptprogramm des 
I SOUND-BLASTER-Paketes und emu- 
I liert die gute alte Heimorgel, mit der 
man Melodien samt Begleitung (Bässe, 
I Schlagzeug und so weiter) spielen kann. 
Auf dem Monitor wird dazu eine Kla¬ 
viertastatur dargestellt, die zur Orientie¬ 
rung unerläßlich ist. Drückt man auf der 
PC-Tastatur eine Taste, so wird dies mit 
I der entsprechenden Färb- oder Grauab¬ 
stufung (bei monocromer Bildschirm- 
darstellung) umgesetzt und auf dem 
Monitor angezeigt, so daß man sofort 
weiß, wo man sich auf einer richtigen 
Klaviertastatur befinden würde. Mit 
ORGAN lassen sich zunächst sehr ein¬ 
fach eine ganze Menge Demo-Songs 
abspielen, die bei der Installation eben¬ 
falls auf die Festplatte kopiert wurden. 

Der Karte ist ein Kabel beigelegt, mit 
dem man sie über die entsprechenden 
Buchsen an jede I ITFI-Anlage anschlie- 
(Jen kann. Die Übermittlung von der 
Karte zur Anlage wird mit einem Laut¬ 
stärkeregler auf der Karte entsprechend 
angepaßt. Wenn die Anlage nicht direkt 
neben dem Computer steht, kann man 
auch einen Kopfhörer oder zwei Laut¬ 
sprecherboxen, die parallel zu schalten 
sind, anschließen, wobei man sich für 
letztere Möglichkeit das Kabel selbst 
Verstellen muß. Der Sound, den das Pro- 
| gramm ORGAN erzeugt, erinnert an je¬ 
de konventionelle Heimorgel. Dies ist 
nicht im negativen Sinne zu verstehen, 
sondern zeigt, wie gut die erzeugten 
Sounds nachempfunden werden. Die 
Bedienung erfolgt über die Funktionsta- 
l sten der Tastatur und ist ausreichend in 
einem COMMAND-Fenster dokumen- 
I tierl. Jede vorgenommene Einstellung 
wird am Monitor sofort angezeigt. 

Der Anschluß an die 
Stereoanlage ist möglich 

Die Wiedergabe erfolgt, auch bei einem 
Walkman-Kopfhörer, in guter Stereo¬ 


qualität. Um zu sehen, wie sich das än¬ 
dert, wenn man einen "richtigen" Kopf¬ 
hörer mit entsprechendem Adapter an¬ 
schließt, wurden verschiedene hoch¬ 
wertige Hörer-mifpositivem Ergebnis 
- getestet. 

Wenn Sie über die reinen Programm¬ 
funktionen hinaus weitermachen möch¬ 
ten, können Sie unter Zuhilfenahme der 
optional erhältlichen MIDI-Connector- 
Box MI DI-fähige Musikinstrumente an¬ 
schließen, mit denen sich die musikali¬ 
schen Fähigkeiten der SOUND-BLA- 
STER enorm erweitern. Mit dieser Aus¬ 
stattung kann man, wenn man ein 
MIDI-fähiges Keyboard verwendet, 
statt auf der Computertastatur auch auf 
einer richtigen Klaviertastatur spielen. 

Die Software ist 
optimal auf die Karte 
abgestimmt 

Hat man jedoch zunächst weder Inter¬ 
face noch Keyboard, ist das Programm 
ORGAN dennoch sehr leistungsfähig 
und vielseitig. So lassen sich ohne viel 
Mühe Songs erstellen, laden, bearbeiten 
und speichern, andere Sounds dazula¬ 
den, miteinander verbinden und so wei¬ 
ter. ORGAN ist optimal auf die 
SOUND-BLASTER-Karte unter Ver¬ 
wendung der PC-Tastatur abgestimmt. 
Damit sind aber die Möglichkeiten der 
Karte bei weitem nicht ausgeschöpft, 
was sich zunächst an einem anderem 
Programm, das dieses Paket beinhaltet, 
dem Talking Parrot (Sprechender Papa¬ 
gei), zeigt. 

Zunächst einmal muß man an der Karte 
ein Mikrofon an die dafür vorgesehene 
Klinkenbuchse anschließen. Danach 
ruft man das Programm PARROT auf— 
und los geht es mit der Kommunikation 
zwischen Mensch und (Computer-)Pa¬ 


pagei. Als erstes wird man nach einem 
Wert, der die Empfindlichkeit des Mi¬ 
krofons einstellt, gefragt. Dies funktio¬ 
niert etwa genauso wie eine Rauschun¬ 
terdrückung bei Walkmans oder einer 
HIFI-Anlage. Ist ein passender Wert 
eingestellt, kann man mit dem Papagei 
sprechen, allerdings nur teilweise in 
Deutsch, denn das meiste "versteht" er 
in Englisch. Sagt man eine Weile nichts, 
meldet er sich einfach und fordert zu ei¬ 
nem Gespräch auf. 

Für die Anwender der Hercules-Karte 
sei gesagt, daß dieses Programm nur mit 
einem entsprechenden Treiber läuft, der 
dem Paket leider nicht bei liegt. Ohne 
Treiber kann dieses Programm nicht ge¬ 
startet werden. Bei allen anderen Video- 
Karten gibt es hingegen keine Proble¬ 
me, und die grafische Darstellung ist 
sehr gut. PARROT ist besonders für 
Computer-Demos zu empfehlen. 

In der Regel kann hierfür jedes Mikro¬ 
fon verwendet werden. Das beste Er¬ 
gebnis wurde mit einem Kondensator- 
Mikrofon erzielt. Dieses Mikrofon ver¬ 
fügt über eine ersetzbare 1,5-Volt-Bat- 
terie und ist dadurch wesentlich emp¬ 
findlicher in der Aufnahme als ein dyna¬ 
misches Mikrofon. Das dynamische Mi¬ 
krofon verfügt lediglich über eine Mi¬ 
krofonkapsel sowie einen Spannungs¬ 
wandler und ist deshalb unempfindli¬ 
cher. 

Der sprechende Papagei, das heißt das 
dazu gehörende Programm, verdeut¬ 
licht sehr gut die Funktion eines weite¬ 
ren SOUND-BLASTER-Programms, 
nämlich VOXKIT, das sehr interessante 
Effekte ermöglicht. 

Der PC spricht - mit VQXKIT 

Außer auf einem PC Musik zu machen, 
macht es auch Spaß, mit der menschli- 
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chen Stimme zu experimentieren. 
VOXKIT zeichnet überdas angeschlos¬ 
sene Mikrofon die menschliche Stimme 
oder aber Musikstücke auf. Die Aufnah¬ 
me kann hinterher abgespeichert wer¬ 
den. Die reine Aufnahmezeit und somit 
die Länge des Tonstückes hängt im we¬ 
sentlichen von der Größe des Arbeits¬ 
speichers ab und liegt bei einem durch¬ 
schnittlich ausgerüsteten Rechner bei 
ein bis zwei Minuten. VOXKIT bietet 
die Optionen Aufnahme, Wiedergabe, 
Speichern, Laden und Datenkompri¬ 
mierung. 

Unter der Funktion Datenkomprimie¬ 
rung, dem DATA PACK ING im eng¬ 
lischsprachigen Programmenü, versteht 
man das Herausfiltern von Rauschpha¬ 
sen oder Sprechpausen, die bei Stimm¬ 
aufnahmen unter Umständen entstehen 
können. Wählt man Aufnahme (RE¬ 
CORD VOICE) an, so erscheint ein 
Auswahlfenster, in dem zwischen Auf¬ 
nahme (RECORD) und der Sampling 
Rate gewählt werden kann. Die Samp¬ 
ling Rate ist die Aufnahmerate, mit der 
man einstellen kann, wieviele Messun¬ 


gen pro Sekunde stattfinden sollen. Bei 
8000 Hz entspricht dies 8000 Messun¬ 
gen pro Sekunde, bei 5000 Hz 5000 
Messungen pro Sekunde und so weiter. 
Je höher diese Zahl ist, desto besser das 
Ergebnis. 

Im Programm sind Einstellungen zwi¬ 
schen 5000 und 13000 Hz möglich. 
Aufgenommenes läßt sich dann vielfäl¬ 
tig verwenden. Mit der Funktion 
JO/NTVOC kann man verschiedene 
Aufnahmen zu einer Kette verbinden. 
Mit dem Programm VOUT schließlich 
können diese Aufnahmen, ob einzeln 
oder als Kette verbunden, ausgegeben 
werden. Das hat vor allem dann nette 
Effekte, wenn man Bekannte oder Kol¬ 
legen verblüffen will. 


Man bittet sie beispielsweise, auf dem 
PC irgendein Programm zu starten. Vor¬ 
her muß man für diesen Programmstart 
eine Batch-Datei erstellen, die den Pro¬ 
grammaufruf VOUT nebst der entspre¬ 
chenden Aufnahmedatei (eine ironische 
Moralpredigt oder ähnliches) beinhal¬ 
tet. Wird nun in voller Arglosigkeit von 
Dritten eben diese Batch-Datei gestar¬ 
tet, bekommen sie aus den (vorher zu 
verbergenden) Lautsprechern eine Mo¬ 
ralpredigt oder ähnliches zu hören, be¬ 
vor das eigentliche Programm auf den 
Monitor kommt. Natürlich kann man 
diese Funktion auch für ernsthafte An¬ 
wendungsmöglichkeiten nutzen. 

Verblüffen Sie andere 
Anwender mit Sprache 
und Musik 

Über die Möglichkeit, Stimmen aufzu¬ 
nehmen und wiederzugeben hinaus, 
kann man auch Musik von der Stereoan¬ 
lage mit VOXKIT und VOUT weiter¬ 
verarbeiten. Dies geschieht ebenfalls 


über den Mikrofoneingang der 
SOUND-BLASTER-Karte, man benö¬ 
tigt aber dann ein spezielles Kabel, ei¬ 
nen sogenannten Attenuator. Dieses 
Kabel, auch angepaßtes Kabel genannt, 
verfügt über einen speziellen Wider¬ 
stand, der den empfindlichen Mikrofon¬ 
eingang schützt. Es simuliert praktisch 
ein Mikrofon, das dann natürlich nicht 
über eine Mikrokapsel verfügt, sondern 
an den Analogausgang eines Wieder¬ 
gabegerätes (CD-Player, Kassetten¬ 
recorder und so weiter) angeschlossen 
ist. 

Man nimmt dann mit VOXKIT die Mu¬ 
sik auf - genug Arbeitsspeicher voraus¬ 
gesetzt - und kann sie hinterher mit 
VOUT abspielen. 


Für die Spieler unter den Lesern sei ge¬ 
sagt, daß man mit der SOUND-BlTa- 
STER-Karte in etlichen PC-Spielen, die 
die Karte unterstützen, den Spielspaß 
um ein Vielfaches erhöhen kann. Das 
setzt jedoch voraus, daß man, wie ein¬ 
gangs erwähnt, den eventuell schon vor¬ 
handenen Joystick-Anschluß ausschal¬ 
tet und den Joystick künftig am dafür 
vorgesehenen Port der SOUND-BLA¬ 
STER-Karte betreibt. 

Hat man also die Stereoanlage oder ei¬ 
nen Kopfhörer oder eben Lautsprecher¬ 
boxen an der Karte angeschlossen und 
lädt ein Spiel, das die Karte unterstützt 
(Spiele von Accolade, Activision, Digi- 
tek und viele andere), kommt man wäh¬ 
rend des Spielens in den vollen Sound- 
Genuß, den man bisher mit dem einge¬ 
bauten PC-Lautsprecher immer schon 
schmerzlich vermißt hatte. 

Die Karte unterstützt viele 
Spiele 

Interessant ist die Sound-Blaster-Karte 
vor allem auch wegen ihrer MIDI-Fä- 
higkeit. Grundlage dafür ist die extra zu 
erwerbende MIDI-Connector-Box, die 
extern an den Gameport-Ausgang der 
Karte angeschlossen wird. Sie bietet ei¬ 
nen MIDl-ln- und fünf MIDI-Out-Aus- 
gänge und wird mit einem englischen 
Handbuch, zwei Zusatzkabeln und je 
zwei 5,25-Zoll- und 3,5-Zoll-Disketten 
ausgeliefert. 

Die MIDl-Norm wurde Anfang der 
achtziger Jahre als genormte Schnitt¬ 
stelle zwischen elektronischen Musik¬ 
instrumenten geschaffen. Sie ist nichts 
weiter als eine serielle Schnittstelle zur 
Übertragung von Steuerdaten. Jedes 
MIDI-Gerät kann diese Daten nicht nur 
senden, sondern auch empfangen. Diese 
Daten enthalten beispielsweise Infor¬ 
mationen über die Dauer und Höhe der 
gespielten Noten und andere Parameter. 

Damit man mit den MIDI-Fähigkeiten 
der SOUND-BLASTER und der Con- 
nector-Box auch etwas anfangen kann, 
wird gleich das Programm Sequencer 
Plus jr. des renommierten amerikani¬ 
schen Herstellers Voyetra in einer ei¬ 
gens für SOUND-BLASTER modifi¬ 
zierten Version mitgeliefert. Ein Key- 
board oder Synthesizer und ein Satz 
DIN-Anschlußkabel genügen für den 
Start. 

Ein solches Sequenzerprogramm kann 
man sich am besten als eine Art "elek¬ 
tronische" Mehrspurbandmaschine vor¬ 
stellen. Sie spielen auf der Tastatur des 
angeschlossenen Instruments, und das 
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Bild 3: Die MIDI-Connector-Boxfür Sound-Freaks 


Programm zeichnet die Daten wie Ton¬ 
höhe •, Tondauer, Anschlagsstärke und 
weitere Informationen auf. Ein auf diese 
Weise eingespieltes Musikstück läßt 
sich nun im Sequenzerprogramm kom¬ 
fortabel weilerbearbeiten. Sie können 
beispielsweise weitere Spuren aufzeich¬ 
nen und die so vorhandenen Stimmen 
oder Instrumente nach Belieben dazu¬ 
mischen oder aber ausblenden. 

Kleine rhythmische "Verhauer" werden 
über eine Quantisierungsfunktion aus¬ 
geglichen: Wenn Sie beispielsweise ei- 
I nen Quantisierungsfaktor von 1/16-No- 
te wählen, dann "justiert" das Pro- 
I gramm alle Noten, die "zwischen" die- 
I sem Raster liegen. Eine weitere Funk- 
I tion transponiert Teilpassagen oder gan- 
1 ze Stücke, selbst einzelne Noten lassen 
I sich mit dem Programm bequem editie- 
I ren. Auch das Kopieren einzelner Takte 
I oder das Umstrukturieren einzelner Pas- 
I sagen sind kein Problem. 

Wichtig: Im Gegensatz zu einer "ech- 
| ten" Mehrspurbandmaschine zeichnet 
J ein solches Sequenzerprogramm nicht 
I die Klänge, sondern nur die Steuerungs- 
1 daten auf. Der Klang selbst kommt aus 
I dem angeschlossenen Musikinstru¬ 
ment. Beim SOUND-BLASTER kann 
die Klangerzeugung der Karte zusätz¬ 
lich in die Musikstücke einbezogen 
I werden. 

SOUNDBLASTER: 
das Tonstudio 
i für Ihren PC 

Während bei den Programmen der Kar- 
I te das gut aufgebaute Handbuch in deut- 
I scher Sprache bei liegt, erhält man mit 
1 der MIDI-Connector-Box ein komplett 
englischsprachiges Produkt. Auch sind 
für die Arbeit mit diesem optionalen Pa- 
' ket und MIDI-fähigen Musikinstrumen¬ 
ten einige musikalische Kenntnisse 
vonnöten. Ebenso sollte man, sofern 
man musisch begabt ist, zunächst ein¬ 
mal einiges an Geduld aufbringen, bis 
man mit dem Produkt die gewünschten 
Effekte erzielt. 

Bei der Installation des Sequenzerpro- 
I grammes Sequenzer Plus Jr. gab es eini¬ 
ge Probleme. Erst eine Rückfrage beim 
Hersteller brachte die Lösung. Ursache 
der Fehler war, daß uns eine ältere Pro- 
: grammversion zur Verfügung gestellt 
wurde, die jedoch bei Drucklegung die¬ 
ser Ausgabe nicht mehr erhältlich ist. 
Mit Hilfe der Hersteller-Hotline gelang 
es, eine Programminstallation durchzu- 
, führen. 


Das Sequenzerprogramm stellt insge¬ 
samt 64 Spuren sowie 16 MIDI-Kanäle 
zur Verfügung. Beispielsweise kann 
man also auf jede Spur ein bestimmtes 
Instrument aufnehmen. Diese Aufnah¬ 
me kann dann editiert, gespeichert und 
neu geladen werden. Mit seinen Pro¬ 
grammfunktionen entspricht Sequenzer 
Plus Jr. den Grundvoraussetzungen für 
einen Sequenzer, der auch semiprofes¬ 
sionelles Arbeiten ermöglicht, zumal, 
ein angeschlossenes Gerät vorausge¬ 
setzt, auch das Überspielen auf eine 
Kassette oder ein Tonband möglich ist. 

Mit der MIDI-Box hat man aber auch 
die Möglichkeit, ein vorhandenes Key¬ 
board mit dem Programm ORGAN ein¬ 
zusetzen. ORGAN unterstützt ein MI- 
Dl-fähiges Keyboard, so daß man damit 
auf einer richtigen Klaviatur spielen 
kann und auf die Computertastatur, wie 
bereits beschrieben, nicht mehr ange¬ 
wiesen ist. 

Das Programm ORGAN 
kann auch mit dem Keyboard 
bedient werden 

Für die Freunde der Shareware ist ganz 
wichtig, daß es für die SOUND-BLA- 
STER-Karte eine ganze Menge Soft¬ 
ware auf diesem Vertriebsweg gibt. Die 
Finna CPS, zuständig für den Vertrieb 
der Karte und ihren Zubehör in 
Deutschland, stellt voraussichtlich ab 
Anfang Mai eine Mailbox zur Verfü¬ 
gung, über die man reichlich Program¬ 
me beziehen kann. Voraussetzung dafür 


ist jedoch, daß man die Registrierungs¬ 
karte, die dem SOUND-BLASTER bei¬ 
liegt, einsendet. Ansonsten kann man 
sich an Sharewarehändler wenden. 

Alles in allem bietet das preiswerte 
SOUND-BLASTER-Paket für jeden et¬ 
was. Die Kinderkrankheiten der Soft¬ 
ware dürften mit den neuen Versionen 
behoben sein. Die Handbücher, vor al¬ 
lem das SOUND-BLASTER-Hand- 
buch, beschreiben die einzelnen Funk¬ 
tionen sowohl der Karte als auch der 
Connector-Box ausreichend - natürlich 
ist, wie erwähnt, einiges an Einarbei¬ 
tung notwendig. 

Ist man aber erst einmal eingearbeitet, 
steht der auch semiprofessionellen Her¬ 
stellung von Musikstücken aller Art, 
entsprechendes Instrumentarium vor¬ 
ausgesetzt, nichts mehr im Wege. Die 
SOUND-BLASTER bietet Möglichkei¬ 
ten. die bis vor kurzem nur mit wesent¬ 
lich kostenträchtigerer Hardware mög¬ 
lich war und die man auch nur bei Profi- 
Musikern fand. 

(Michael Henke/Gerald Arend/ 
Thomas Kallay) 

Info 

CPS Computer Distribution GmbH 
Am Neumarkt 30 
2000 HAMBURG 70 
Telefon: 040/65 66 911 

Preis SOUND-BLASTER: 498.- DM inklusive 
Mehrwertsteuer 

Preis MIDl-Conneetor-UOX: 298,- DM inlusivc 
Mehrwertsteuer 

Preis Attenuator-Kabel: 29— DM inklusive 
Mehrwertsteuer 
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I—Briefe 


Liebe Leserinnen und Leser 


Die Rubrik Leserbriefe ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro- 
grarnmierprobiemen oder zu 
unserer Zeitschrift haben; 
Selbstverständlich sind wir be ¬ 
müht, alle Leserfragen zu be¬ 
antworten. 

Haben Sie jedoch bitte Ver¬ 
ständnis, dalV wir nicht alle 
eingehenden Briefe persönl ich 
beantworten können. Oft er¬ 
reichen uns mehrere Briefe 
zum gleichen Thema, jeweils 
einer davon wird stellvertre¬ 
tend für alle in dieser Rubrik 
beantwortet. Wir behalten uns 
vor. Leserzuschriften in ge¬ 
kürzter Form zu veröffentli¬ 
chen. 

Bitte senden Sie Ihren Leser¬ 
brief unbedingt an die folgen¬ 
de Anschrift: 

DMV-Verlag 

Redaktion 

PC INTERNATIONAL 
- Rubrik “Leserbriefe“ — 
Postfach 250 
3440 Eschwcge 


Wenn Sie Fragen zu Beiträgen 
aus unserer Zeitschrift haben, 
geben Sie bitte immer die Aus¬ 
gabe und die Seite an, bei Ant¬ 
worten auf Leserbriefe ande¬ 
rer Leser bitte auch den 
Namen. 

Falls Sie Produkte aus der 
DMV Produktreihe bestellen 
wollen, benutzen Sie bitte die 
in jeder Ausgabe der PCI vor¬ 
handenen Bestellkurten oder 
schreiben Sie an: 

DM V-Verlag 

- Vertrieb/Bestellannahnie - 
Postfach 250 
3440 Esch wege 


Mit der freundlichen Beach¬ 
tung der oben genannten 
Punkte ermöglichen Sie uns 
die schnelle Bearbeitung Ihrer 
Fragen und Wünsche. 

Ihre PCI-Redaktion 


Der Oldtimer ELITE 

Neulich haben wir ein altes 
Spiel, ELITF. (von Firebird), 
aus der Versenkung hervor¬ 
geholt, was uns sehr gut ge¬ 
fällt. Leider haben wir uns 
fest gefahren. Sicher gibt es 
unter den Lesern Experten, 
die uns da weiterhelfen kön¬ 
nen. Fs ergeben sich für uns 
folgende Fragen beziehungs¬ 
weise Situationen, für die wir 
keine Lösung finden: 

— Der Status “Gefährlich“ 
ist erreicht. Gibt es den Sta¬ 
tus “Elite“ überhaupt, und 
wenn ja, wie erreicht man 
ihn? 

— Meistens treten die Geg¬ 
ner in Schwärmen zu fünft 
oder zu sechst auf, auch 
wenn man ohne Ware fliegt, 
und eröffnen aus größter 
Entfernung das Feuer. Bevor 
man überhaupt erst einen im 
Visier hat, ist man schon 
selbst abgeschossen. Zwar 
ist der schnelle Einsatz der 
Fnergiebomben für den Mo- 
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ment hilfreich, doch mei¬ 
stens erscheint kurz darauf 
ein neuer Schwarm. Da man 
immer nur eine Energiebom¬ 
be zur Verfügung hat, kann 
man sich dann nur durch ei¬ 
nen Sprung in ein anderes 
System retten, doch dort lau¬ 
ert auch schon wieder ein 
neuer Schwarm. Was kann 
man wirkungsvoll gegen die¬ 
se Schwärme tun ? 

— Es gibt Angreifer, die 
paarweise auf treten, wobei 
einer meistens unsichtbar 
bleibt und nur für einen 
Schuß plötzlich im Bild er¬ 
scheint. Danach verschwin¬ 
det er wieder, um woanders 
für einen neuen Schuß aufzu¬ 
tauchen. Wie kann man sich 
dieser Plage erwehren ? 

— Offenbar ist man am 
Spielende, wenn das System 
RAXXLA erreicht wird. Auf 
der galaktischen Karte ist 
RAXXLA aber unbekannt. 
Hat RAXXLA aus der dazu¬ 
gehörigen Novelle nichts mit 
dem Spiel zu tun ? 


— Unter Taste >8< 
(Marktpreise) gibt es die Ru¬ 
brik “Fremde Güter“. Hier 
ist in keinem System ein An¬ 
gebot. Oder etwa doch ? 

— Auf der galaktischen Kar¬ 
te kann man sich ein System 
heraussuchen und hinüber¬ 
springen. Man landet aber 
immer woanders. Ist das be¬ 
absichtigt? 

Walter Brandes 

Wer kann diesen Hilferuf be¬ 
antworten? 

Red. 


| CPC_□ 

Wirklich MS-DOS auf 
dem CPC? 

Ich bin zur Zeit noch stolzer 
Besitzer eines CPC 6128, 
werde aber bald gezwungen 
sein, mir einen PC anzu¬ 
schaffen. Nun meine Frage: 
Kann ich mit dem von Ihnen 
im Heft 4-5/91 vorgestellten 
MS-DOS-Emulator für den 
CPC sämtliche auf IBM- 
kompatiblen Rechnern lauf- 
fähige Software benutzen ? 

Dirk Becke! 

Viele Leser haben es ja be¬ 
stimmt schon gemerkt; man 
lese nur einmal den Firmen¬ 
namen “AP & RIL“ 
(APRIL). Der Beitrag über 
den MS-DOS-Emulator war 
unser diesjähriger April- 
Scherz. Das Echo fiel für uns 
eigentlich unerwartet hoch 
aus. Selbst eine Vertriebsfir¬ 
ma bekundete schon ihr In¬ 
teresse an diesem Produkt. 
Nun. Spaß muß sein, aber 
nur einmal im Jahr (wofür 
wir garantieren). 

Red. 


C_ cp c | 

XT-Floppy am CPC 

Ich bin Besitzer eines 
CPC6128. Außerdem habe 
ich ein 360-kByte-Chinon- 
Diskettenlaufwerk aus einem 
XT. Besteht eine Möglich¬ 
keit, das genannte Laufwerk 
so umzubauen, daß man es 
an den CPC als Zweitlauf¬ 
werk anschließen kann ? 

Matthias Böger 


Prinzipiell ist es möglich, je¬ 
des Laufwerk, das einmal 
Verwendung in einem PC 
gefunden hat, auch an einen 
CPC anzuschließen. Den ge¬ 
ringsten Aufwand haben Sie, 
wenn Ihr Laufwerk einen 
SHUGART-Bus hat, denn 
dieser Bustyp findet auch bei 
dem Floppyport des CPC 
6128 Verwendung. Da dies 
aber nicht bei allen Laufwer¬ 
ken der Fall ist, sollten Sie 
bei Ihrem Händler oder bei 
dem Hersteller nachfragen. 
Haben Sie für eine zusätzli¬ 
che Stromversorgung für das 
Zweitlaufwerk gesorgt und 
hat dieses einen SHUGART- 
Bus, brauchen Sic diesen nur 
noch eins zu eins mit dem 
Floppyport des CPC 6128 zu 
verbinden. 

Red. 



POKER und der 464 

Zum Heft 2-3/91 erwarb ich 
die zugehörige DATA BOX. 
Leider mußte ich feststellen, 
daß das Programm POKER 
auf meinem Computer nicht 
funktioniert. Nach Durch¬ 
laufen des Eröffnungsteils 
des Programms erscheint die 
Meldung “POKER WIRD 
GELADEN - VIEL ER¬ 
FOLG Man hört den Com¬ 
puter noch einige Male auf 
das Laufwerk zugreifen, und 
dann passiert nichts mehr. 
Ich besitze einen CPC 464 
mir Zweitlaufwerk DDL 

Leider gibt cs bei den unter¬ 
schiedlichen CPC-Typen ei¬ 
nige Kompatibilitätsproble¬ 
me. So funktionieren die 
CHAIN- und MFRGE-Be- 
fehle beim BASIC 1.0 des 
CPC 464 nicht richtig. Auf¬ 
grund der Programmgröße 
werden diese aber in POKER 
verwendet. Deshalb gibt es 
mit dem Spiel Probleme auf 
dem CPC 464. Bedauerli¬ 
cherweise wurde vergessen, 
im Text zum Spiel noch ein¬ 
mal auf diesen Fakt hinzu¬ 
weisen. Wir suchen noch 
nach einer Lösung für dieses 
Problem. Hat nicht vielleicht 
einer unserer Leser eine 
Idee? Wie gesagt, es ist nicht 
viel Platz im Speicher. 

Red. 
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Maxi-Datenverwaltung 

ln den Begleittext zu meinem 
Prog nt mm Maxi-Da ten Ver¬ 
waltung, das in der April/ 
Mai-Ausgabe Ihrer Zeit¬ 
schrift veröffentlicht wurde, 
haben sich einige kleine Feh¬ 
ler eingeschlichen: 

- Wählt man im Eingabeme¬ 
nü “Alle vorherigen Einga¬ 
ben löschen ", werden diese 
gelöscht und die Eingabe be¬ 
ginnt mit Nr. 1. Es wird nicht 
ins Hauptmenü zurückge¬ 
schaltet. 

— Im Text wird beschrieben, 
daß man mit dem Befehl 
GOTO 250 nach Beendigung 
des Programms ins Haupt¬ 
menü zurückschalten kann. 
Dieser Befehl muß aber 
GOTO 200 lauten. Dies soll¬ 
te gegebenenfalls auch in der 
Zeile 1920 geändert werden. 
Bitte veröffentlichen Sie die¬ 
ses Schreiben unter der Ru¬ 
brik LESERBRIEFE. 

Jan Dohm 

Was wir hiermit getan 
haben. 

Red. 

I CPC 1 

LQ3500 und ARTWORX 

Ich bin Besitzer eines CPC 
6128 und eines Druckers 
LQ3500. Ich habe schon al¬ 
les mögliche probiert, aber 
wenn ich mit MICRO DE¬ 
SIGN oder ARTWORX eine 
Hardcopy ausdrucke, wird 
diese immer in die Länge ge¬ 
zogen. Vermutlich liegt es 
daran, daß der Drucker nur 
einen Zeilenvorschub von 
1/6, 1/8, x/60 und x/180 Zoll 
ermöglicht. Wie kann ich das 
Problem lösen ? 

Manfred Hauser 

Hat jemand für dieses Pro¬ 
blem schon eine Lösung? 

Red. 


CPC ] 

Zu Diaprojektion 

In der PCI 4-5/91 las ich in 
der Leserecke die Anfrage 
zur Diaprojektion mit dem 
CPC. Hier nun eine mögli¬ 
che Lösung: 


Mit den Befehlen 
OUT &F700, &82: OUT &F600, &49 
von der BASIC-Ebene aus 
wird für die Dauer von 1/50 
Sekunde ein Signal auf dem 
Joystickport zwischen COM¬ 
MON und einem beliebigen 
anderen Anschluß ausgege¬ 
ben. Sperrt man mittels eines 
kleinen Maschinenpro¬ 
gramms die Interruptannah¬ 
me (DI-Befehl), erhält man 
ein konstantes Signal von 4,2 
Volt. Dieses kann man mit ei¬ 
nem Transistor verstärken 
und damit ein Relais ansteu¬ 
ern. Das Relais koppelt man 
mit der Umschalttaste des 
Projektors. 

Matthias Koch 

Das ist natürlich eine interes¬ 
sante Idee. Mit einem derart 
angesteuerten Relais kann 
man ja die verschiedensten 
Sachen schalten. An Erfah¬ 
rungen. die unsere Leser mit 
solchen oder ähnlich gearte¬ 
ten einfachen Lösungen ma¬ 
chen oder gemacht haben, 
sind wir stets interessiert. 

Red. 

| PCW_ 

LocoScript-Zeichen 

Für meine Texte benötige ich 
viele mathematische Sonder¬ 
zeichen. Des öfteren kommen 
auch solche vor, die mir von 
LocoScript nicht an geboten 
werden. Kann man in Loco¬ 
Script Zeichen umdefinieren, 
und wie macht man das ? 

Da ich viel veröffentliche, 
habe ich f olgendes Problem : 
Der Verlag hätte gerne eine 
Diskette mit Text in einem 
PC- verträglichen Standard¬ 
format, zum Beispiel Word¬ 
star oder dergleichen. 

Ein anderer Fall ist der, daß 
der Nadeldruck nicht er¬ 
wünscht ist und ein Laser¬ 
druck wegen der Reproduk¬ 
tion gefordert wird. Auf je¬ 
den Fall muß man hier auf 
ein anderes Textsystem um¬ 
spulen, nicht nur mit dem 
Text, was Sie schon be¬ 
schrieben haben, sondern 
auch mit den Steuerzeichen. 
Gibt es hierfür Programme ? 

Dr. Carl-Otto Leiber 

Natürlich ist es möglich, 
dem Textprogramm Loco¬ 


Script neue Zeichen beizu¬ 
bringen. Hierfür benötigen 
sie das Zusatzprogramm Lo- 
coChar. 

Damit Sie es Ihrem Verlag 
recht machen können, möch¬ 
ten wir Ihnen folgende Lö¬ 
sung anbieten: Für Grafiken 
oder ähnliches, die Sie mit 
dem PCW erstellt haben, 
können Sie unser Programm 
VA RIO (PCI 10/11' 90) be¬ 
nutzen. Ein Bildschirmaus¬ 
druck kann hiermit auch auf 
einen Laserdrucker umgelei¬ 
tet werden. 

Für LocoScript gibt es auch 
Zusatzdisketten, auf denen 
Treiber für Laserdrucker 
vorzufinden sind. Erkundi¬ 
gen Sie sich bei Ihrem Händ¬ 
ler oder/und einem unserer 
Inserenten. 

-Bei der Konvertierung Ihrer 
Texte mit Steuerzeichen sto¬ 
ßen Sie momentan noch auf 
viele Schwierigkeiten. 

Die Firma Wiedmann bietet 
jedoch einen Konvertie¬ 
rungsservice vom PCW auf 
PC an. Eine softwaremäßige 
Lösung hierzu ist uns leider 
nicht bekannt. 

Red. 

I . •: PCW , ' 1 

Dolmetscher für CP/M 

Als Autor des Artikels Dol¬ 
metscher II möchte ich allen 
Lesern der PC Amstrad, die 
mit der Übersetzung Ihrer 
Systemsoftware Sch wierig- 
keiten haben, anbieten, ge¬ 
gen eine kleine Aufwandsent¬ 
schädigung die Software zu 
übersetzen. Kopieren Sie 
einfach die Dateien auf Dis¬ 
kette und senden Sie diese 
an: 

Hans-Joachim Steller, Otto- 
Niel k-Straße 2, 6204 Tau¬ 
nusstein 2. 

Die Diskette wird dann mit 
den übersetzten Program¬ 
men per Nachnahme an Sie 
zurückgesandt. 

Hans-Joachim Steller 


L_ pcvv 

PCW mit Fremddrucker 

Anstelle des alten PCW- 
Druckers arbeitet bei mir 
jetzt ein EPSON LQ 550. 
Leider gibt LocoScript beim 
Drucken nicht alle Möglich¬ 


keiten des Druckers her. So 
kann ich zum Beispiel dop¬ 
pelt breit drucken, aber nicht 
doppelt hoch und doppelt 
breit zusammen. Auch der 
Schmaldruck funktioniert 
nicht. 

Können Sie mir helfen ? 

Alexander Grieß 

Grundsätzlich sind in dem 
Textprogramm LocoScript 
PCW nicht sonderlich viele 
Möglichkeiten gegeben, alle 
Schriften eines jeden 
Druckers zu verwenden. So¬ 
mit muß man auf so manche 
Zusatzfunktionen seines 
Druckers verzichten. Der 
Schmaldruck jedoch sollte 
ohne Probleme funktionie¬ 
ren. Ich kann mir nur den¬ 
ken, daß Sie hier einen DIP- 
Schalter Ihres Druckers 
falsch eingestellt haben. 

Red. 


! CPC 

Zu Check your Papers 

Im Heft 4-5/91 veröffentlich¬ 
ten Sie das Programm Check 
your Papers. Leider habe ich 
festgestellt, daß das Pro¬ 
gramm fehlerhaft arbeitet. 
Hier die Verbesserung: 

1740 IF invest(i)=1 THEN 
PRINT#8, TAB(16); 

USING" # # # #“; stk(i); : 

GOTO 1770 

1760 IF stfrei(i)=0 THEN 
PRINT#8, TAB(24); "Frei“; 

ELSE PRINT#8, TAB(23); 

US ING“ # # # # # #“; 
stfrei(i); 

1840 i=0: kurswges=0: 
gewges=0: gewproges=0: 
stkges=0 

1880 gevprcges=(gevges/ 
kursvges)# 100 

1900 PRINT # 8, "G ESAMTBES 
TAND:“; “ 11 stkges; “Aktien = 
DM“; 

2030 IF ir.vest( i) =1 THEN L0CA- 

TE 16, z: PRINT 

USING“# # # #“; stk(i): 

GOTO 2060 

2050 IF stfrei( i) =0 THEN LOCA- 
TE25,z: PRINT“Frei“; ELSE L0- 
CATE 23, z: PRINT USING“ # 
#####“; stfrei( i) 

2165 stkges=stkges+stk(i) 

2190 gevproges=(gevges/ 
kurswges)* 100 
2210 z=z+-l: J..0CATE l,z: PRINT 
“GESAMTBESTAND “ “ 
stkges; “ Aktien = DM“ 

2810 i=0: kurswges=00: 
belvertges=0: stkges=0 
2815 stkges=stkges+stk(i) 

2860 z=z+l:L0CATE l,z:PRINT" G 
ES AMTBEST AND:“; “ “ 
stkges; 11 Aktien = DK“ 

Went Ameis 
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Neues aus aller Welt 

PD und Shareware "frisch 
auf den Tisch" 

Nützliches, Unterhaltsames, Verrücktes - PD- und Shareware sind immer 
gut für Überraschungen, von denen wir Ihnen einige vorstellen wollen. 


• Booster 

Wenn man den PC unter verschiedenen 
Konfigurationen betreiben möchte, artet 
das oft in eine ständige Umschreiberei 
der Dateien AUTOEXEC.BAT und 
CONFIG.SYS aus. Manche Program¬ 
me benötigen Expamions- andere er¬ 
weiterten Speicher. Für fröhliches Tip¬ 
pen sorgt auch das leidvolle Problem 
mit der speicherresidenten Software, 
die sich nicht mit allen Programmen 
verträgt. 

Sei es, wie es sei. Wenn man ständig 
mehrere Konfigurationsvarianten benö¬ 
tigt, ist das deutschsprachige Share¬ 
ware-Programm Booster genau die rich¬ 
tige Hilfe. Booster kann in einer speziel¬ 
len Konfigurationsdatei bis zu acht ver¬ 
schiedene Varianten der Dateien 
AUTOEXEC.BAT und CONFIG.SYS 
zur Verfügung stellen, die man beim 
Rechnerstart über ein bedienungs- 
freundliches Menü auswählen kann. 

Darüber hinaus kann man auch bei 
schon laufendem Rechner eine andere 
Konfiguration auswählen, woraufhin 
ein Warmstart erfolgt. Die Benutzung 
von Booster wird in einem ebenfalls 
deutschen Handbuch ausführlich be¬ 
schrieben. Beim Programmautoren er¬ 
hält man nach erfolgter Registrierung 
eine lizenzierte und aktuelle Version, 
die auch über keinerlei Shareware-Mel¬ 
dungen mehr verfügt. 


Info 

Die Deutsche Software Bibliothek 
Monatsdiskette April 1491 
Shareware 

Gebühr Vollversion: 39,- DM 
Voraussetzungen: MS-DOS ab Version 3.2 

• EASYDOS 

Wohl kaum eine Software wurde mit so 
viel gegensätzlichen Gefühlen (und Be¬ 
griffen) bedacht, wie das PC-Betriebs- 
system DOS. Die einen mögen es, und 
können sich nichts Besseres vorstellen, 
die anderen aber (und das sind die mei¬ 
sten Anwender) meiden den Umgang 
damit wie der Teufel das Weihwasser. 

Eines ist sicher: Das Betriebssystem ist 
wirklich kein Ausbund an Bedienungs¬ 
freundlichkeit und ermöglicht flüssiges 
Arbeiten mit seiner Kommandozeile 
erst nach intensiver Einarbeitung. Ob¬ 
wohl mittlerweile auch bei den Herstel¬ 
lern dieser Software erkannt wurde, daß 
eine Hilfefunktion nicht schlecht wäre, 
ist bisher jedoch eine glückliche Lösung 
dafür nicht in Sicht. Anders im Public- 
Domain-Bereich. Hier bietet sich 
EASYDOS an. ein Programm, daß sich 
intensiv mit den DOS-Befehlen ausein¬ 
andersetzt und sowohl ihre Anwendung 
erläutert als auch vereinfacht. Nach dem 
Programmstart erscheint eine einfache 
aber übersichtliche Oberfläche, die in 
zwei Bereiche geteilt ist. Int linken Fen¬ 
ster werden die einzelnen DOS-Kom- 
mandos angezeigt, rechts daneben dann 
erfolgt eine detaillierte - und auch für 


Einsteiger verständliche - Erläuterung 
der Befehle. 

Will man nun einen Befehl anwenden, 
geht man mit dem Cursor auf den Datei¬ 
namen, liest sich die Beschreibung 
durch, drückt <RETURN> - und kann 
den Befehl entsprechend der Anleitung 
ausführen. Einfacher geht’s nimmer. 

Info 

I'D-Service Lage 
Public Domain 
Gebühr: keine 
Voraussetzungen: keine 

• Glückswand 

Glückswand ist ein grafisch gelungenes 
Ratespiel für zwei bis sechs Mitspieler, 
das in der Vollversion mit über tausend 
Begriffen, die zu erraten sind, ausgelie¬ 
fert wird. Darüber hinaus läßt sich die 
Datei, in der die Begriffe enthalten sind, 
erweitern. 

Nach dem Programmstart erscheint ein 
Spielfeld, in dessen Mitte der Oberbe¬ 
griff für den zu suchenden Begriff steht. 
Darunter befindet sich das Eingabefeld. 
Sind Anzahl und Namen der Spieler ein¬ 
gegeben, kann man zunächst mit der 
<SPACE>-Taste drehen. Hat man dann 
eine Punktzahl gedreht, und muß nicht 
aussetzen, kann ein Konsonant einge¬ 
ben werden. 

Gibt es diesen Buchstaben im gesuchten 
Begriff, wird er an der richtigen Stelle 
angezeigt, und man erhält das Doppelte 
der zuvor erdrehten Zahl aufs Punkte¬ 
konto gutgeschrieben. Hat man daneben 
getippt, gibt es keine Punkte, und der 
nächste Spieler ist an der Reihe. Zusätz¬ 
lich kann man Vokale kaufen, wichtig ist 
aber, daß man dabei auch ausreichend 
Punkte auf dem Konto hat. Hat man 
während des Spiels das gesuchte Wort 
plötzlich erraten, obwohl noch nicht alle 
Buchstaben angezeigt sind, kann man 
Lösen wählen. Stimmt die Lösung, gibt 



Bild I; Booster ermöglicht die Auswahl beliebiger Konfigurationen 



• Catte's EASY B0S-C0NHAHB l.iZ ]-— - 

SYNTAX: 

ASSISI [Laufwerk! 1 [neues Laufwerk! 

BESCHREIBUNG: 

Mt de» Befehl können Sie alle Biskettenoperationen, 
die sich auf ein Laufwerk beziehen auf ein anderes 
Laufwerk uwleiten. Sie können Mehrere Zuweisungen in 
einer Anweisung zusauwenfassen. 

Wird ASS1GN ohne Faraaeter eingegeben, sou wird die 
ursprüngliche Zuordnung wieder hergestellt. 

Die folgenden Befehle ignorieren die ASSIGN-Zuueisang: 
FORMAT, DISKCOrY und DISICOHP 


IF1! für Hilfe 


Bthl 2: EASYDOS — und das PC-Betriebssystem wird einfaeher 
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es Bonuspunkte. Glückswand ist die ge¬ 
lungene PC-Adaption eines bekannten 
TV-Ratespiels und dürfte, so man die 
Vollversion besitzt, für manch heiteren 
Rateabend im Familienkreis sorgen. Da 
man. wie erwähnt, die über tausend Be¬ 
griffe auch selbst erweitern kann, 
kommt bestimmt keine Langeweile auf. 

Info 

Die Deutsche Software Bibliothek 
Monatsdiskette Mürz ‘>1 
Gebühr Vollversion: 30. DM 
Voraussetzungen: 360 kByte freier Hauptspeicher 

• Perestroika 

Es gibt Tage, an denen man wirklich 
verrückte und trotzdem gute Sachen zu 
sehen bekommt. Diese etwas unge¬ 
wöhnliche Beschreibung paßt eindeutig 
zu dem Spiel Perestroika. Nach dem 
Start erscheint zum grenzenlosen Er¬ 
staunen der Anwender eine Grafik auf 
dem Bildschirm, die den Präsidenten 
der Sowjetunion, Michail Gorbatschow, 
zeigt. Aus dem PC-Lautsprecher er¬ 
klingt ein von einem Männerchor ge¬ 
sungenes russisches Lied. 

Hat man den ersten Schrecken über¬ 
wunden, folgt der nächste auf dem Fuß. 
Das zweite Programmenü, welches 
nach dem Gorbi-Porträt erscheint, ist 
komplett in russischer Sprache gehal¬ 
ten. Doch sollte man sich davon nicht 
abschrecken lassen, denn das Spiel ist 
einfach zu spielen - wenn man sehr flin¬ 
ke Finger hat. 

Sinn des Spiels ist es, daß Sie (der grüne 
Frosch) sich im Meer der russischen 
Korruption befinden und darin ertrinken 
können. Einzig die kleinen Inseln der 
Gesetze, die kommen und gehen (je 
nach Level immer schneller), geben Ih¬ 
rer Spielfigur kurze Rastmöglichkeiten. 
Sie müssen Zusehen, daß Sie das Meer 
heil überqueren, um den Meilenstein 
der Perestroika in der rechten oberen 
Spielfeldecke zu erreichen. 

Dabei können Sie jede Menge Güter 
einsammeln, die für Sie Punkte bedeu¬ 
ten. Das sind Waren aller Art (blaue Ku¬ 
geln) oder Devisen (rote Kugeln). Gera¬ 
ten Sie auf ein Feld mit einer gelben Ku¬ 
gel, knöpft Ihnen der Fiskus Steuern ab. 
Wenn sich zeigt, daß Sie sich gut durch 
das Meer hindurchlavieren (weil Sie 
viele Punkte machen), erregen Sie da¬ 
mit die Aufmerksamkeit der Parteibüro¬ 
kratie, die dann einen ihrer Vertreter (ro¬ 
ter Frosch) schickt, der Jagd auf Sie 
macht - Vorsicht ist also geboten. 

Insgesamt gilt es. 25 Meilensteine der 
Perestroika zu erreichen. Je höher der 
Level, desto schneller wird das Spiel, 
indem die Inseln der Gesetze immer 
schneller kommen und wieder ver¬ 



schwinden. Pro Level haben Sie drei 
Leben, die es überlegt und wieselflink 
einzusetzen gilt. Haben Sie Pech gehabt 
und sind in einem Level dreimal ertrun¬ 
ken, erscheinen die Parteibürokralen 
und führen ihren Kondolenzlanz auf. 
Sie können dann entscheiden, ob Sie 
weiter durchs Meer der Korruption ge¬ 
hen (Taste <1>) oder das Spiel beenden 
wollen (Taste <0>). 

Perestroika ist ein grafisch gelungenes, 
unterhaltsames und verrücktes Jump- 
and-Run-Spiel, das ganz schnell zur 
Sucht führen kann. 

Info 

PD-Service Lage 
Shareware 
Gebühr: 5,- US$ 

Voraussetzungen: EGA- oder VGA-Kartc, 356 kByie 
freier Arbeitsspeicher 

• Shareware 

Immer wieder erhalten wir Anfragen 
von Lesern, die gerne wissen möchten, 
wiedas mit der Shareware eigentlich ist. 
Wenn Ihnen ein Programm gefällt und 
Sie es weiterbenutzen wollen, sollten 
Sie sich beim Autoren registrieren las¬ 
sen. Die Anschrift - und auch die Höhe 
der Registrierungsgebühr finden Sie in 


den Textdateien mit den Endungen 
*.TXT, *.DOC oder ähnlich auf der Dis¬ 
kette. Vom Autoren bekommen Sie dann 
fast immer die neueste Programmver¬ 
sion (die meisten Programme werden ja 
ständig verbessert) und auch ein Hand¬ 
buch aus Papier. 

Grundsätzlich sollten Sie auch nachfra- 
gen, ob in der Gebühr ein weiteres Update 
enthalten ist - manche Autoren bieten das 
an. Natürlich kann Sie niemand zwingen, 
für ein Shareware-Programm, mit dem 
Sie arbeiten, Gebühren zu zahlen - bitte 
denken Sie aber daran, daß die Autoren 
viel Arbeit investiert haben - und sich aus 
zunächst normalen Gebührenangelegen¬ 
heiten oft interssante Kontakte entwickel¬ 
ten - Fairneß zahlt sich immer aus 

(Thomas Kallay) 


Bezugsquellen der hier vorgeslelllcn Programme 

PD-Service Lage 

Postfach 1743 

4937 Lage/Lippe 

Tel.: 05232/66912 

Deutsche Software Bibliothek 

Alpenstraße 52 

8038 Gröbenzell 

Tel.: 08142/52177 


Bild 4; 
Schlagen Sie den 
Parteihonzen ein 
Schnippchen - 
Perestroika 
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Put ’em in your trouscr 
pocket (I) 

Taschen-Computer im Test: der 
CASIO SF 9500 

Waren Computer vor nicht allzulanger Zeit noch tonnenschwere Ungetüme, 
die in staubfreien und klimatisierten Räumen vor sich hin rechneten, gibt es 
heute Tisch- und Laptop-Computer, Notebooks und Taschen-Computer - 
die Pockets. 
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Vor elf Jahren, als der erste IBM-Tisch- 
PC auf den Markt kam, hätten die 
Schöpfer dieses Rechners mit Sicher¬ 
heit recht eigenartig reagiert, wäre ih¬ 
nen prophezeit worden, daß man die 
Leistung ihres stolzen Produktes heute 
in der Hosentasche steckend herumtra¬ 
gen kann. 

Der technische Aulbau von Computern 
wird immer kompakter, und trotzdem 
büßen die Geräte keine Leistung ein - 
im Gegenteil. Man darf wirklich ge¬ 
spannt sein, was sich da in den nächsten 
fünf Jahren tun wird. Wir haben uns 
jetzt für Sie die drei marktbeherrschen¬ 
den Pocket-Computer, den CASIO SF 


9500 , den SHARP IQ 8300 M und den 
ATARI Portfolio angesehen. Der Reihe 
nach stellen wir sie Ihnen in dieser und 
der nächsten Ausgabe vor und beginnen 
mit dem CASIO SF 9500. 

Der SF 9500, das (momentane) 
Flaggschiff der Taschen-Computer-Se¬ 
rie von CASIO, besitzt 64 kByte Haupt- 
und Arbeitsspeicher und ist im Gegen¬ 
satz zum ATARI Portfolio kein MS- 
DOS-kompatibles Gerät. Trotzdem 
kann man den Datenaustausch mit dem 
PC über eine spezielle Schnittstelle, das 
DATALTNK, betreiben - ein Feature 
übrigens, das alle drei Testgeräte über 
Zubehör bieten. 


Der SF 9500 ist das Ergebnis einer gan¬ 
zen Reihe von Taschen-Computern und 
-Rechnern, mit denen sich CASIO welt¬ 
weit einen Namen gemacht hat. Er 
zeichnet sich aus durch seine kompak¬ 
ten Maße, die, so das Gerät zusammen¬ 
geklappt ist, lediglich 167 x 20 x 85 mm 
(Breite x Höhe x Tiefe) ausmachen. 

Klein, grau, schick 


Der etwa 250 Gramm schwere (oder 
leichte) Pocket ist mit einem anthrazit¬ 
farbenen Lack beschichtet, der sich sehr 
samtig anfaßt. 
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An der rechten Gehäusekante findet sich 
der Einschub für die bei Taschen-Compu- 
tem mittlerweile obligatorische Speicher¬ 
karte nebst Verriegelung, die von 64 kBy- 
te bis maximal 256 kByte Speicherkapa¬ 
zität erhältlich ist. Gegenüber, auf der lin¬ 
ken Seite, ist im Gerätedeckel ein Regler 
für den Bildschirmkontrast angebracht, 
direkt darunter, im Tastaturteil, verbirgt 
sich unter einem Gummistopfen ein Klin¬ 
kensteckeranschluß für die Verbindung 
zum PC mit dem als Zubehör erhältlichen 
DATALINK. 

Ein Anschluß für ein Netzgerät ist leider 
nicht vorhanden. Um jedoch Batterie¬ 
strom zu sparen, schaltet sich der 
Pocket nach jeweils etwa sechs Minu¬ 
ten aus, wenn er während dieser Zeit¬ 
spanne nicht genutzt wurde. Aktiviert 
wird er wieder durch die <ON>-Taste, 
die direkt neben der <OFF>-Taste ange¬ 
ordnet ist. 

Auf der Geräterückseite sieht man zu¬ 
nächst einmal nur drei kleine Kreuz¬ 
schlitzschrauben, die erst zu lösen sind, 
wenn man an die Batterien oder an den 
RESET-Knopf herankommen will. 
Zum einen wird man dadurch davor be¬ 
wahrt, versehentlich einen RESET aus¬ 
zulösen, zum anderen aber gerät so das 
Komplettlöschen des Speichers zu einer 
Bastelei, die nicht jedermanns/-fraus 
Sache sein dürfte. 

Kein Netzanschluß 

Aufgeklappt präsentiert sich der SF 
9500 mit einer in den Grundzügen PC¬ 
kompatiblen Tastatur, die zwar keine 
deutschen Sonderzeichen bietet (ä, ö, ü, 
ß), dafür aber angenehm zu bedienen 
ist, da lediglich die Bewegung der Fin¬ 
ger (und nicht der Hand) für die Daten¬ 
eingabe erforderlich ist. Natürlich, wie 
auch schon bei Laptops und Notebooks 
üblich, sind mehrere Tasten in Verbin¬ 
dung mit Sondertasten doppelt oder 
dreifach belegt. 

Der CASIO SF 9500 verfügt "nur" über 
eine englische Tastaturbeschriftung und 
Menüführung, die aber das Arbeiten 
nicht behindern dürfte, schließlich be¬ 
kommt man mit dem SF 9500 ein sehr 
ausführliches und alle Funktionen ge¬ 
nau beschreibendes Handbuch in deut¬ 
scher Sprache mit 283 Seiten. Dieses 
Handbuch dürfte auch für Einsteiger 
mehr als ausreichend sein, weil es die 
Anwendung des Geräts in kleinen, 
überschau- und nachvollziehbaren 
Schritten mit Beispielen erläutert, so 
daß man schon nach einigen Stunden 
Übung mit dem Gerät vollwertig arbei¬ 
ten kann. 


Interessant beim Handbuch ist jedoch, 
daß auf dem Umschlag zwar "SF 9500" 
steht, innen jedoch der Vorgänger SF 
9000 beschrieben wird. Die Geräte sind 
jedoch technisch und funktionell iden¬ 
tisch, einziger Unterschied liegt in der 
Tastatur, die beim SF 9000 aus Folie be¬ 
steht, während man bei seinem Nach¬ 
folger reguläre Tasten verwandt hat. 
Dieser kleine "Handbuch-Schönheits¬ 
fehler" behindert die Arbeit mit dem SF 
9500 jedoch nicht. 

Das Handbuch läßt nichts zu 
wünschen übrig 

Die obere, ausgeklappte Hälfte des 
Pocket wird von dem etwa 100 x 30 mm 
großen und quer angebrachten Display 
beherrscht, unter dem sich weitere Ta¬ 
sten befinden, mit denen die verschie¬ 
denen "Programme" des Rechners ge¬ 
startet werden können. Auf dem Dis¬ 
play selbst wird im unteren Bildschirm¬ 
rand die jeweils aktive Funktion, bei¬ 
spielsweise MEMO, TEL und so weiter 
angezeigt. Am linken Bildschirmrand 
leuchten auf- oder abwärtszeigende 
Pfeile auf, wenn soviel Text vorhanden 
ist, daß er über den Display-Rand hin¬ 
ausgeht. 

Der SF 9500 bietet ein Telefonregister , 
mit dem neben Name und Rufnummer 
auch die Anschrift und weitere, insge¬ 
samt sechs "freie Einträge" pro An¬ 
sprechpartner, vorgenommen werden 
können. Die Suchkriterien sind ebenso 
einfach wie vielfältig. Man kann etwa 
nur den Anfangsbuchstaben eines Na¬ 
mens oder aber den Vornamen eines 
Teilnehmers mit Wohnort und weitere 
Kombinationen eingeben. Für Leute, 
die wirklich viele Rufnummern und An¬ 
schriften parat haben müssen, ist das 
Telefonregister des SF 9500 ein wahrer 
Segen. 

Parallel dazu gibt es die BUSINESS¬ 
CARD -Funktion, mit der man die Anga¬ 
ben, die sich auf Visitenkarten finden, 
ebenso eingeben und verwalten kann. 
So wird zunächst die Firma abgefragt, 
dann der Name des Mitarbeiters und 
dessen Rufnummer sowie Position und 
Abteilung. Darauf folgen dann Post¬ 
fach, Anschrift sowie Fax- und Telex- 
Nummer. Abschließend kann man auch 
sechs freie Einträge, beispielsweise Be¬ 
merkungen, vornehmen. Alles in allem 
ist die BUSINESS-CARD-Funktion eine 
nette Spielerei, die lediglich etwas aus¬ 
führlicher als das Telefonregister ist. Wer 
natürlich viel mit Finnen und deren diver¬ 
sen Angestellten zu tun hat, wird auch 
diese Funktion zu schätzen wissen. 


Terminverwaltung und Telefon¬ 
register - kein Problem 

Mit der MEMO -Funktion hat man dann 
die Möglichkeit. Texte aller Art, etwa 
Notizen, Busfahrpläne, Terminlisten 
oder vieles mehr einzugeben, die von¬ 
einander mit einem Titelbegriff getrennt 
werden können. Da die schon erwähnte 
Tastatur trotz kleiner Tasten auch für et¬ 
was größere "Pratzen" sehr eingabe¬ 
freundlich ist. steht der flotten Eingabe 
von durchaus auch längeren Texten 
nichts im Wege, 

Der Terminplaner arbeitet in direkter 
Kombination mit dem Kalender zusam¬ 
men, der sich vom Jahre 1901 bis ins 
Jahr 2099 erstreckt - der SF 9500 kann 
also guten Gewissens vererbt werden. 
Doch im Emst - manchmal ist es ganz 
interessant zu sehen, an welchem ^Wo¬ 
chentag beispielweise manche wichti¬ 
gen Ereignisse stattfanden oder -finden 
werden. 

Im Tenninplaner wird ein Tag in Form 
einer Balkengrafik angezeigt, in der 
sich die bereits belegten Zeiten dunkel 
abheben. Dadurch hat man den wirklich 
gelungenen Überblick über noch freie 
Termine des Tages. Auch bei dieser 
Funktion ist die Eintragung, das Abru¬ 
fen und Löschen von Terminen sehrein¬ 
lach und komfortabel dazu, weil man zu 
jedem Termin auch einen Kommentar 
eingeben und abrufen kann. 

Vielfältige Terminplaner¬ 
funktionen 

Das Abrufen eines Termins oder aber 
der Aufruf eines bestimmten Tages 
kann über mehrere Arten erfolgen, wo¬ 
bei die erwähnte Kombination zwi¬ 
schen Terminplaner und Kalender voll 
zum Tragen kommt. Der Aufruf eines 
Wochentages kann sowohl überden Ka¬ 
lender als auch den Planer geschehen. 
Man kann aber auch durch den Kalen¬ 
der oder Planer mit den Pfeiltasten 
"blättern". Das Handbuch gibt auch hier 
wirklich erschöpfend Auskunft. 

Der Kalender nun stellt jeweils zwei 
Monate auf dem lediglich bei guter Um¬ 
gebungsbeleuchtung ablesbaren Dis¬ 
play dar. Zunächst einmal kann man ihn 
sich beliebig einrichten, sei es, daß man 
die Tage von Sonntag bis Samstag oder 
lieber von Montag bis Sonntag ange¬ 
zeigt haben möchte oder aber generell 
alle Wochenenden ständig markiert zu 
sehen wünscht. Ebenso können alle 
Feier- oder auch andere Tage markiert 
werden, indem man sie, wie auch die 
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Wochenenden, dunkel unterlegt. Wen es 
interessiert, der kann sich auch alle Ta¬ 
ge, an denen er zur Arbeit gehen muß, 
aufzeigen lassen. 

Sobald man die Kalenderfunktion mit 
der dafür bestimmten Taste anwählt, er¬ 
scheint in der linken Display-Hälfte der 
Monat des laufenden Datums und 
rechts daneben der Folgemonat. Schal¬ 
tet man mit <DISPLAY CHANGE> 
um, bekommt man vom angewählten 
oder aktuellen Monal eine Wochen¬ 
übersicht, die neben den einzelnen Ta¬ 
gen und deren Datum auch eine Über¬ 
sicht über die Termine eines jeden Wo¬ 
chentages bietet. Dadurch hat man, in 
schon erwähnter Kombination mit dem 
Terminplaner, einen Gesamtüberblick 
über die Termine einer Woche. 

Kalender und Terminplaner 

sind kombiniert 

Wurden über den Terminplaner diverse 
Termine eingetragen, erhält man so¬ 
wohl in der erwähnten Wochenüber¬ 
sicht als auch in der Monatsübersicht 
des Kalenders einen Eintrag. In der Wo¬ 
chenübersicht ist es der erwähnte Bal¬ 
ken, in der Monatsübersicht steht neben 
dem Wochentag ein Pünktchen. Dieses 
Pünktchen wird entweder rechts oben 
(Termine vormittags) oder rechts unten 
(Termine nachmittags) neben dem Tag 
positioniert. 

Natürlich gehört zu diesen interessanten 
Tenninverwaltungsmöglichkeiten auch 
eine Erinnerungsfunktion, da man ja 


nicht ständig die Termine im Auge be¬ 
halten will und kann. Dieser 
SCHEDULE ALARM (Terminplan- 
Alarm) kann während der Eingabe ei¬ 
nes Tennins mit der Aktivierung der 
entsprechenden Taste aufgerufen wer¬ 
den. Dabei empfiehlt sich, daß man 
grundsätzlich den Alarm zeitig akti¬ 
viert, also wenn man einen Tennin um 
11 Uhr hat, zu diesem Termin aber 30 
Minuten Fahrzeit benötigt, den Alarm 
um 10.30 Uhr erklingen läßt; wobei der 
Begriff "Erklingen" im wahrsten Sinne 
des Wortes zu trifft - das 20 Sekunden 
lang erfolgende Piepsen hört man auch 
bei ausgeschaltetem Gerät und zusam¬ 
mengeklappten Gehäuse. Selbst dann, 
wenn der SF 9500 in der Jacken- oder 
Aktentasche steckt, geht der Alarm 
allenfalls "unter", wenn man sich in 
einer Discothek oder an ähnlich lauten 
Orten aufhält. 

Der Alarmton verdient den 
Namen zu Recht 

Zu einem vernünftigen Terminplaner 
mit Kalender (oder Kalender mit Ter¬ 
minplaner - wie man möchte) gehört 
selbstredend auch eine gute Uhr. Im SF 
9500 gibt’s gleich zwei davon, eine für 
die HOME TIME und eine für WORLD 
TIME. Mit ersterer ist die Uhrzeit ge¬ 
meint, mit der man lebt und arbeitet, 
letztere ist die für verschiedene Welt¬ 
zeitzonen. 

"In Amerika gehen die Uhren anders" - 
ein Sprichwort, das wirklich zutrifft, je¬ 
doch nicht nur für die Vereinigten Staa¬ 


ten. Unsere Erde hat nun einmal ver¬ 
schiedene Zeitbereiche, mit denen man, 
so man mit dem außereuropäischen 
Ausland zu tun hat, umgehen können 
muß. Sei es aus beruflichen Gründen 
oder aber weil der Onkel in China 
wohnt: Die Umrechnerei der Zeit, wenn 
man anrufen oder ein Fax schicken 
möchte, gehört nicht zu den beliebte¬ 
sten Tätigkeiten. 

CASIO SF 9500 hilft hier ab, indem er 
die Zeiten unzähliger Metropolen unse¬ 
res Planeten abrufbereit gespeichert hat 
und damit alle Zeitzonen abdeckt - 
beim Onkel in China anzurufen, ohne 
ihn aus den Federn zu klingeln, ist dann 
kein Problem mehr. 

Die Uhrzeit vom Onkel in China 
- kein Problem 

Voraussetzung für die einwandfreie 
Funktion von Uhr und Weltzeituhr ist 
natürlich, daß man die "HOME- 
TIME"-Uhr zunächst auf die tatsächli¬ 
che Heimatzeit eingestellt hat - was 
man nach dem ersten Einschalten des 
Rechners mit Hilfe des Handbuchs 
wirklich einfach bewerkstelligen kann. 
Da natürlich nicht jede Ortschaft ange¬ 
geben ist, sollte man beispielsweise 
Frankfurt, Berlin oder München (Bonn 
geht auch!!) als "Ortszeit-Ort" angeben. 

Wenn man dann wirklich den Onkel 
(oder Geschäftspartner) in Peking, Chi¬ 
na, anrufen will, drückt man die Tasten 
< WORLD TIME> und <FUNK- 
TION>, nimmt den Menüpunkt 2 - 
WORLD TIME CITY CHANGE , drückt 
<P> für Peking, scrollt Peking an die 
Display-Oberkante, drückt <SET> und 
bekommt die Pekinger Ortszeit ange¬ 
zeigt. Ist es eine sittliche Zeit für einen 
Anruf, geht man ins Telefonregister 
und ... 

Obwohl der SF 9500 über eine engli¬ 
sche Bedienungssprache verfügt, hat 
man die Möglichkeit, die Erscheinungs¬ 
weise von Uhrzeit und Datum europäi¬ 
schen Verhältnissen anzupassen. So 
kann man etwa bei der Uhrzeit und 
Weitzeit zwischen der amerikanischen 
AM/PM- (Ante Meridiem = Vormittag, 
Post Meridiem = Nachmittag) oder "un¬ 
serer" gebräuchlichen 24-Stunden-An¬ 
zeige wählen. Auch mit der "beliebten" 
Sommerzeit versteht CASIO Pocket 
umzugehen - nicht verzagen, das detail¬ 
lierte Handbuch fragen. 

Bei der Datumsanzeige besteht Wahl¬ 
freiheit zwischen den Formaten Jahr- 
Monat-Tag. Monat-Tag-Jahr oder Tag- 
Monat-Jahr , wobei letztere für den 
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Bild 2: PC und SF 95Ul) vertragen sich gut 


deutschen Sprachraum am gebräuch¬ 
lichsten sein dürfte. Im Handbuch wird 
dem Editieren von eingegebenen Daten 
aller Art ein eigenes Kapitel gewidmet, 
bei dessen Lektüre dann einmal mehr 
deutlich wird, was der SF 9500 so alles 
kann - es ist nicht wenig. Ob es sich um 
das schnelle Ändern einer Telefonnum¬ 
mer dreht, im Terminplaner umdispo¬ 
niert werden muß oder sich bei den 
Business Cards die Anschrift einer Fir¬ 
ma, deren 100 Vertreter man gespei¬ 
chert hat, ändert - nichts ist unmöglich. 
Man kann aber nicht nur editieren, son¬ 
dern auch hinzufügen, kopieren oder 
löschen - ganz, wie es auch beim 
großen PC möglich ist. 

Dalensicherheit wird großgeschrieben. 
Wenn man mal den SF 9500 irgendwo 
liegen läßt, was vermieden werden soll¬ 
te, könnte theoretisch jeder daran her¬ 
umfingern und beliebig in den Daten 
stöbern. Verhindert wird das durch eine 
frei wählbare und ausgeklügelte Pass¬ 
wortfunktion, die jedoch so sicher ist, 
daß, sofern man das eigene Passwort 
vergessen hat, man nur noch durch ei¬ 
nen RESET in den Rechner kommt - 
die Daten sind dann natürlich passe. Da 
wir schon beim Thema Fremdzugriff 
sind - hier macht sich auch die zunächst 
unkomfortable Idee des verdeckten RE- 
SET-Knopfes bemerkbar - einfach mit 
einem Kuli mal eben draufdrücken, um 
den Besitzer des Pocket zu ärgern, geht 
nicht. Und nur extreme Bösewichter 
machen sich die Mühe, den Rechner 
aufzuschrauben, um an den gesuchten 
Knopf heranzukommen. 

Eine andere Art von Datenschutz, näm¬ 
lich der Schutz vor der eigenen Zer¬ 
streutheit, ist, daß man Daten, die man 
auf keinen Fall, also gerade auch nicht 
versehentlich löschen will, markieren 
und so mit einer Alt Schreibschutz ver¬ 
sehen kann - auch hier läßt "Big 
Brother", der.PC, grüßen. 

Auch Datenschutz mit Paßwort 
ist möglich 

Es wäre wunderlich, würde der SF 9500 
nicht auch noch über einen Taschen¬ 
rechner verfügen. Dieser ist selbstre¬ 
dend vorhanden, bedarf aber, da die Ta¬ 
staturanordnung gewissen Zwängen 
unterworfen ist, einiger Eingewöhnung. 
Hat man aber die Bedienung erst einmal 
eingeübt, lassen sich auch schwierigere 
Berechnungen ohne Wenn und Aber 
durchführen. Als Zubehör gibt es eine 
Scientific Card , die dem Pocket zu tech¬ 
nisch-wissenschaftlichen Rechenlei¬ 
stungen verhilft. 


Obwohl eine ganze Menge Daten dazu¬ 
gehören, die 64 kByte Speicher des 
Pocket aufzufüllen (mit etwa 150 Tele¬ 
fonnummern und zehn Texteinträgen 
liegt die Speicherbelegung beispiels¬ 
weise gerade mal bei 12 Prozent), kann 
man den SF 9500 auch mit Speicherkar¬ 
len, den sogenannten IC-Karten füttern, 
die in den erwähnten Schlitz an der 
rechten Gehäuseseite eingeschoben 
werden. Diese Karten sind zur Zeit in 
Größen von 64 bis 256 kByte erhältlich 
und beinhalten sogenannte SRAM- 
Bausteine (= Statisches RAM, hält Da¬ 
ten kurzfristig auch ohne Stromversor¬ 
gung) und werden mit einer eigenen 
Batterie betrieben, die laut Hersteller¬ 
angaben etwa ein Jahr halten soll. 

Wird die R AM-Karte das erste Mal ein¬ 
gelegt, muß sie initialisiert beziehungs¬ 
weise formatiert werden. Diese Arbeit 
geht jedoch innerhalb einer Sekunde 
vonstatten - langes Warten, wie etwa 
beim Formatieren einer Diskette auf 
dem PC, entfällt. Ist die Karte betriebs¬ 
bereit, kann man durch Betätigung der 
jeweiligen Programmtasten, beispiels¬ 
weise <MEMO> oder <TEL>, zwi¬ 
schen Rechner- und Kartenspeicher hin 
und her schalten. Dabei wird der Rech¬ 
nerspeicher durch Sterne und der Kar¬ 
tenspeicher durch Rauten jeweils neben 
dem Programmnamen auf dem Display 
unterschieden. Zusätzlich erscheint, so 
man auf Karte speichert oder zugreift, 
der Hinweis CARD am unteren Rand 
des Displays. 

Wie der SF 9500 selbst kann auch die 
IC-Karte mit einem Paßwort versehen 


werden, das man jedoch ebenfalls nicht 
vergessen sollte. Das Speichern, Editie¬ 
ren oder Löschen von Daten auf der IC- 
Karte erfolgt genauso, wie es für Daten 
des Rechner-Hauptspeichers im Hand¬ 
buch beschrieben ist. Hinzu kommt 
aber, daß man Daten vom Rechner- 
Hauptspeicher auf die Karte und wieder 
zurück übertragen kann. 

Macht diese Funktion im ersten Mo¬ 
ment wenig Sinn, freut man sich späte¬ 
stens dann darüber, wenn man die Bat¬ 
terien des SF 9500 (nicht die Batterie 
der IC-Karte) austauschen muß. Zwar 
wird im Handbuch beschrieben, daß 
man das auch ohne Verlust der im Rech¬ 
ner gespeicherten Daten bewerkstelli¬ 
gen kann, Vorsicht ist aber die Mutter 
aller Daten. Die Batterie der Karte übri¬ 
gens kann auch dann gewechselt wer¬ 
den, wenn die Karle selbst im Rechner 
steckt. Für die Austauschaktion über¬ 
nehmen die Rechner-Batterien kurzfri¬ 
stig die Stromversorgung. 

Will man nun Daten auf die Karte über¬ 
tragen - zum Beispiel eben wegen eines 
Wechsels der Batterien des CASIO, 
schiebt man eine leere IC-Karte in den 
SF 9500, ruft eines der Programme auf, 
drückt die <FUNCTION>-Taste, und 
wählt mit <4> die Funktion DATA 
COMMUNICATION an. Danach betä¬ 
tigt man <5> DATA TO RAM CARD und 
kann dann wählen, ob man alle im 
Hauptspeicher befindlichen Daten oder 
aber nur die Daten eines Programms 
übertragen möchte. Die gewählte Funk¬ 
tion wird dann noch mit <SET> bestä¬ 
tigt (oder mit <ESC> abgebrochen). 
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Bild 3; Ein Blick auf das Display, das viel Licht benötigt 


und nach einigen Sekunden sind die Da¬ 
ten übertragen. Nützlich ist auch, daß 
man wählen kann, ob die übertragenen 
Daten im Hauptspeicher gelöscht wer¬ 
den sollen. Will man dann die Batterien 
des Rechners austauschen und gehen 
dabei die Daten des Hauptspeichers 
verloren, kann man sie in der genannten 
Weise wieder zurückspielen - fertig. 

IC-Karten - die "Disketten" des 

SF 9500 

Diese An der Datenübertragung ist aber 
nicht die einzige, die der SF 9500 bietet. 
Hat man an der Arbeit und/oder zu Hau¬ 
se einen FC stehen, der über eine seriel¬ 
le Schnittstelle (COM) verfügt, kann 
man den kleinen CASIO an den großen 
Bruder PC anschließen und Datenaus¬ 
tausch betreiben. Der SF 9500 verfügt 
dazu über die eingangs erwähnte Klin¬ 
kenbuchse an der linken Gehäuseseile, 
die mit einem Gummistopfen verdeckt 
ist. Der Stopfen sitzt recht fest, was gut 
ist (so verliert man ihn nicht), muß aber, 
so man an die Buchse heran will, regel¬ 
recht herausgepuhlt werden, was weni¬ 
ger schön ist. Dabei sollte man darauf 
achten, den Stopfen nicht zu verlieren. 

Als Zubehör gibt es für die Kopplung 
zum PC das DATALINK, das aus einer 
Software, jeweils auf einer 5,25- und 
3,5-Zoll-Diskette vorhanden, einem 
speziellen Kabel und einem ebenfalls 
deutschen I landbuch besteht. Während 
das DATALINK-Handbuch lediglich 
die Funktionen der PC-Software und 
den Anschluß an den PC beschreibt, er¬ 


läutert das SF-9500-Handbuch anhand 
von Schaltplänen auch die Pin-Bele¬ 
gung des Kopplungskabels. Da sich im 
PC-Stecker des Kabels aber eine kleine 
Platine mit feinen IC-Schaltungen ver¬ 
birgt, sollte man von Basteleien besser 
die Finger lassen. Um sich generell in 
DATALINK einarbeiten zu können, be¬ 
nötigt man beide Handbücher. 

Der PC muß mindestens über eine 
EGA-Karte und 512 kßyte freien Ar¬ 
beitsspeicher verfügen. Ganz wichtig 
ist, daß für die serielle Schnittstelle, an 
der man DATALINK betreiben will, 
kein Maus- oder sonstiger Gerätetreiber 
(Joystick, Digitalisiertablett oder ähnli¬ 
ches) geladen ist. 

Zunächst wird die DATAL IN K-Soft- 
ware mit dem auf Diskette befindlichen 
Installierungsprogramm auf der Fest¬ 
platte eingerichtet. Danach müssen bei¬ 
de Rechner, also PC und SF 9500, aus¬ 
geschaltet sein, um mit dem Kabel die 
Verbindung herzustellen. Ist alles ange¬ 
schlossen, wird zuerst der PC und dann 
der SF 9500 eingeschaltet. 

Das DATALINK-Programm auf dem 
PC wird, wenn man das Verzeichnis des 
Programms im Pfad hat, mit plc <RE- 
TURN> gestartet. Es erscheint ein über¬ 
sichtliches Menü, das über weitere Pull- 
down-Fenster verfügt und somit kom¬ 
fortabel zu bedienen ist. Auch eine aus¬ 
führliche Hilfefunktion ist vorhanden. 

Unabhängig davon, daß man mit DA¬ 
TALINK Daten vom CASIO SF 9500 
empfangen und an diesen senden kann, 
bietet sich auch hier die Möglichkeit, 
den PC als regclmäßgen Datensicherer 


für den kleinen Taschen-Computer zu 
verwenden. Das Empfangen und Sen¬ 
den von oder zum SF 9500 ist, wenn 
man die Handbücher einmal studiert 
hat, denkbar einfach. Beispielsweise 
beim Senden von Daten vom Pocket auf 
PC wird zunächst im Menü Modus aus¬ 
gewählt, aus welchem "Programm" des 
CASIO man Daten übertragen möchte. 
Dann erfolgt im Menü Funktion der Be¬ 
fehl Empfangen, ln einem darauf er¬ 
scheinenden Untermenü muß man aus¬ 
wählen, ob man alle Daten oder aber 
den aktuellen Modus (den Inhalt des ak¬ 
tuellen "Programms" des Pocket) über¬ 
tragen möchte. 

Auf dem SF 9500 wählt man dann das 
gewünschte "Programm" an, drückt 
<FUNKTION>, wählt <4> für DATA 
COMMUN1CATION und dann <1> für 
TRANSMIT. Anschließend sucht man 
sich aus, ob man einzelne oder alle Da¬ 
ten senden möchte. Mit <DISPLAY 
CHANGE> wechselt man die Bild¬ 
schirmanzeige, bestätigt die Sendung 
mit <SET> - und der PC wird mit den 
Daten gefuttert. 

SF 9500 und PC verstehen sich 

glänzend 

Sind die Daten auf dem PC angekom¬ 
men, können sie bearbeitet, gelöscht, 
zurückgesendet oder aber in Text- oder 
dBASE-Formate konvertiert werden - 
den Verarbeitungsmöglichkeiten sind 
keine Grenzen gesetzt. Übertragene Da¬ 
ten werden auf dem PC in einzelnen Da¬ 
teien gespeichert, die als Endung die 
Abkürzung des jeweiligen SF-9500- 
"Programms" haben. 

Ist man mit der Datenübertragung fer¬ 
tig, muß als erstes der CASIO und da¬ 
nach der PC ausgeschaltet werden. 
Dann erst kann man das Kabel von bei¬ 
den Geräten lösen. Das mag auf den er¬ 
sten Blick etwas pingelig erscheinen, ist 
aber aufgrund der in dieser Hinsicht 
empfindlichen Technik gerechtfertigt. 

Die Datenübertragung läßt sich noch 
weiter ausschöpfen, indem man den SF 
9500 auch an einen Drucker anschließt. 
Leider lag uns hier aber das entspre¬ 
chende Zubehör DATAPRINT nicht 
vor. Wenn man aber einen PC und einen 
Drucker besitzt, kann man sich die In¬ 
vestition für die Druckerverbindung 
sparen, wenn DATALINK vorhanden 
ist. 
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Technische Daten: 
CASIO SF 9500 


• Datcn-Funktionen 

Speicherung/Abruf von Adressen und Rufnummern im Telefonregister und in Business Card, 
Notizfunktion/Textspeicher (MEMO), Termin Verwaltung, Kalender 

Editieren, Markieren, Kombinieren, Suchen und Löschen von Daten 
Datenübertragung auf IC-Speicher-Karten und Personal Computer 

• Uhr 

Nonnalzcituhr und Weltzeituhr mit allen Zeitzonen, wählbare Anzeige (AM/PM oder 24 Stunden), 
Genauigkeit +/- 3 Sekunden pro Tag 

Terminerinnerung, tägliche Erinnerung (Weckfunktion) 

• Rechner 

12stellige Berechnungen, Konstanten für Addition, Subtraktion, Multiplikation und Division, un¬ 
abhängiger Speicher, Prozentrechnung, Quadratwurzel, 24stcllige Näherungen, Datumsberech¬ 
nungen, allgemeine Mischrechnungen 

• Anzeigen auf Display 
Datenfunktionen Sonderlasten Scroll-Pfeile 

• Technik 


Display: 

Tastatur: 

Speicher: 

Prozessor: 
Stromversorgung: 

Batterielebensdauer: 

Stromeinsparung: 

Anschlüsse: 

Betriebstemperatur: 
Abmessungen: 

Gewicht: 

Bedienungssprache: 

• Lieferumfang 


Flüssigkristallanzeige mit 6 Zeilen / 32 Spalteh 
QUERTY-Standard mit Sondertaslen, Einzeltasten 
64 kByte 

LSI (CASIO-Produkt) 

zwei CR2032 Lithium-Batterien für Arbeitsstrom 
eine CR2025 Lithium-Batterie für Speichersicherung 
Arbeitsstrom gesamt 75 Stunden 
Speichersicherung-etwa 12 Monate 
automatische Abschaltung alle 6 Minuten 
Klinkensleckerbuchse für Kopplung mit PC (DATALINK) 
Einschubschacht für IC-Karten 
0 bis 40 "C 

aufgeklappt 10.6<H>xl68(B)xI70(T) mm 
geschlossen 19,8(H)xl68(B)x85(T) mm 
etwa 250 g 
Englisch 


CASIO SF 9500, ein Verbindungskabel zu einem anderen SF, ein deutschsprachiges Handbuch, 
283 Seiten 

• Preis 


449 - DM inklusive Mehrwertsteuer 


• Bezugsquelle 


Fachhandel und Warenhäuser 

• Zubehör 


IC-Karten: 


DATAUNK: 

DATAPRINT: 

Card-Kopier syst ent: 
Bezugsquelle: 


ES-100, 64 kByte, Preis: 199,- DM inklusive Mehrwertsteuer 
ES-105, 128 kByte, Preis: 349,-DM inklusive Mehrwertsteuer 
ES-110, 256 kByte, Preis: 499,- DM inklusive Mehrwertsteuer 
Kopplung zum MS-DOS-kompatiblen PC, 

Preis 199,- DM inklusive Mehrwertsteuer 
Kopplung zum Drucker mit Centronics-Schnittstelle, 

Preis 99 - DM inklusive Mehrwertsteuer 

Kopierstation für IC-Karten mit PC-Verbindung, 

Preise auf Anfrage 
AMS GmbH 
Bauer Landstraße 99 
2390 Flensburg 
Tel.: 0461/42039 


• Software auf IC-Karten 


Sc ientijic -Card ES-650: 

Power-Spreadsheet-Karte 
ES-630: 

Multi-Translator-Card 

ES-SI0: 


Spezialan Wendungen für 
Firmen: 


Software für technisch-wissenschaftliche Berechnungen, 

Preis 119,- DM inklusive Mehrwertsteuer 

Lotus 1-2-3-kompatible Tabellenkalkulation, 

Preis etwa 229,- DM inklusive Mehrwertsteuer 

fünfsprachiges Wörterbuch mit den Sprachen Deutsch. Englisch. 
Spanisch. Französisch und Italienisch. Gesamtwortschatz 
162 000 Begriffe, Preis 199, DM inklusive Mehrwertsteuer 

Preise und Auskünfte über CASIO 


AHround-Talent für 
jedermann 


Nach all diesen Informationen bleibt 
nur noch die Frage: Für wen lohnt es 
sich, das Gerät anzuschaffen? Antwort: 
Für alle, die irgendwelche großen Infor¬ 
mationsmengen ständig griffbereit ha¬ 
ben müssen, ob privat oder beruflich. 
Für die, die es leid sind, ständig dicke 
Notizbücher oder Terminkalender mit 
sich herumzutragen. Für die, die eine 
Kombination zwischen Notizbuch, Ka¬ 
lender, Telefonbuch, Weltzeituhr und 
Taschenrechner suchen, deren Gesamt¬ 
heit nicht einen ganzen Aktenkoffer 
füllt. 

Schwärmerei beiseite: Hat man sich, 
zumal alseingefleischte/r Notizbuchan¬ 
wender/in, erst einmal an den CASIO 
SF 9500 gewöhnt und festgestellt, daß 
man fast genauso schnell damit tippen 
wie mit dem Stift auf Papier schreiben 
kann, macht das Arbeiten mit ihm viel 
Spaß und das althergebrachte, dicke 
Notizbuch wandert als Relikt der Ver¬ 
gangenheit in die Schublade. 

Schade ist, daß er nicht über einen Netz¬ 
anschluß verfügt und somit gänzlich auf 
Batterien angewiesen ist. Auch die eng¬ 
lische Bedienerführung ist vielleicht 
nicht jedermanns/-fraus Sache. Die für 
andere Pockets erhältliche Software- 
Vielfalt fehlt ihm noch. Lediglich eine 
Multi-Translator-Karte mit mehreren 
Sprachen wird demnächst erhältlich 
sein. Darüber hinaus wäre eine inte¬ 
grierte Hilfefunktion mit Sicherheit loh¬ 
nenswert. 

Ein ganz wichtiger Anwendungspunkt 
fehlt dem Pocket von CASIO. Man 
kann ihn nicht selbst programmieren. 
Lediglich Firmen, die, etwa für ihre 
Vertreter, größere Stückzahlen des SF 
9500 abnehmen, können spezielle fir¬ 
menspezifische Programme auf IC- 
Karten bekommen. Angesichts der 
Konkurrenzmodelle von ATARI und 
SHARP fragt man sich hier mit Recht, 
warum dem CASIO dieses Feature 
nicht beigegeben wurde. 

Sieht man von diesen Dingen jedoch 
einmal ab und betrachtet die praktische 
Anwendung des CASIO SF 9500 im 
Alltag, kann man ihn als taschenfreund¬ 
liche Organisationshilfe nur empfehlen. 


(Thomas Kallay) 
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Herberts little helper - und in der Küche geht es rund 



»PC International« 8/9'91 
erhalten Sie nur noch im 

Bahnhofsbuchhandel oder 
im Abonnement ab: 


Bericht 

- Wenn man für CPC oder PCW 
Hard- und Software sucht, ist man 
mittlerweile in diesem unserem 
Lande vor einige Probleme ge¬ 
stellt. Es gibt nur noch wenige 
Händler oder Hersteller, die der 
8-Bit-Technik trotz sinkender 
Marktzahlen die Stange halten. 
Obwohl in aller Munde, kennt 
man diese Firmen und die Men¬ 
schen, die dahinter stehen, kaum 
persönlich. Wir stellen in unserer 
neuen Rubrik Personality diejeni¬ 
gen vor, die den meisten unserer 
Leserinnen und Leser nur vom Te¬ 
lefon oder dem Briefkopf her be¬ 
kannt sind. 

CPC 

- Als Bonusprogramm kommt 
ein spannendes Spiel: Herberts 
little helper zeigt, was man in ei¬ 
ner Küche alles erleben kann. Das 
mag simpel klingen - ist es aber 
nicht. 


- Darüber hinaus geht’s natürlich 
weiter mit unserer Spiele-Ecke 
und einer Fülle von Programmen 
sowie Tips und Tricks zum abtip¬ 
pen. Alle als Listing vorgestellten 
Programme finden Sie natürlich 
wie immer auf unserer DATA- 
BOX. 

PCW 

- Es tut sich was im Reiche 
JOYCE/PCW. Neue Software, 
neue Hardware kommen auf den 
Markt — wir waren neugierig. 

PC 

- Wenn das Wörtchen “Wenn“ 
nicht war’... Leider hat es mit den 
angekündigten PC-Berichten für 
diese Ausgabe über das MS-DOS- 
Lernprogramm und Microsoft 
Works nicht so geklappt, wie wir 
es uns gewünscht hatten — wir 
mußten umdisponieren. Dafür 
klappt es aber in der Ausgabe 
8-9/91 um so besser. 


ACHTUNG 


Jetzt gilt’s! Wir CPCler halten zu¬ 
sammen, obwohl unsere Zahl 
schrumpft. Und die PC Amstrad 
International macht weiter. Mit 
Informationen, Programmen, 
Tips und Tricks für Sie. Wie ge¬ 
wohnt. Oder doch nicht so ganz 
wie gewohnt: Ab der nächsten 
Ausgabe 8/9’91 gibt’s uns nicht 
mehr im Supermarkt oder am 
Kiosk um die Ecke. Sie bekom¬ 
men Ihre nächste PC Amstrad nur 
noch im Bahnhofsbuchhandel — 
oder natürlich im Anonnement. 
Wenn Sie sich für ein Abo ent¬ 
scheiden, sparen Sie sich lange 
Wege und machen uns die Freude, 
einen weiteren CPC- oder PCWler 
als bleibenden Freund bei uns zu 
wissen. Die Bestellkarte fürs Abo 
finden Sie in der Heftmitte. 

Jetzt gerade 

Auch 8-Bit is beautiful! 


com-zu Elektronik.35 

Crusader Software.35 


DMV....53-58, 63-69, 119, 120 


DIE INSERENTEN 


Dobbertin.99 

Graßhoff.35 

Interest Verlag.Beihefter 


PD Service Lage.2 

SoftMaker.35 

Weeske.89 
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DATABOX 

DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


Spiel der Atome 

Lassen Sie sich von uns in die wunderbare Welt der 
Atome entführen. Wer seine Logik und sein Spiel¬ 
geschick auf die Probe stellen will, sollte dieses 
Programm in seine Sammlung aufnehmen. 

Utilities sind überall 

Auch diesen Monat wieder ein Programm, das Ihnen 
sicherlich noch in Ihrer Sammlung gefehlt hat. Sind Sie 
nicht am Arbeitsplatz, schalten Sie doch einfach Ihren 
Monitor, nicht aber Ihren Computer aus. 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 


24.- DM 

Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 


Inland: 

Ausland: 


Einzelpreis 24,- DM 

Einzelpreis 

24,- DM 

zzgl. Versandkosten 4.- DM 

zzgl, Versandkosten 

6,- DM 

Endpreis 28,- DM 

Endpreis 

30.- DM 


Funktion 

Wie Sie Ihrem Programm in Turp-Pascal beibringen 
können, auch nach der Compilierung noch Formeln 
anzunehmen? Schauen Sie sich unser Demoprogramm 
auf der DATABOX an! 

Ein exzelentes Trio 

Wer unter LocoScript 2 und den dazugehörigen Zusät¬ 
zen -Mail und -File arbeitet, sollte diese Dateien einmal 
genauer unter die Lupe nehmen. Es lohnt sich bestimmt. 

Bonusprogramm 

Nur soviel sei gesagt: Wer dieses Spiel auf dem 
Computer hat, wird sicherlich bald dem Spielhallen¬ 
fieber verfallen. 


Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bei Lieferungen ins Ausland ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 



Medienverlag 



















Meisterstücke der Computergrafik 


High-Speed: 

Höchsteffiziente Programmierung in Assemb¬ 
ler und intelligente Berechnungs-Routinen für 
enorme Zeitersparnis 


Mehrere separate Bildspeicher: 

Getrennte Abspeicherung von Farben und 
Bild. Verwendung der Bilder in Malprogram¬ 
men 


Mandelbrot und Juliamenge: 

Mit automatischer Glättungsfunktion 

Stufenloser vertikaler Blickwinkel: 

Wahlweise Sicht von oben, unten, schräg 
und in der Totalen einzeln und stufenlos 
einstellbar 


Voller Bedienungskomfort: 

Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder 
über die Tastatur 


Phantastische Farbmöglichkeiten: 

Farben-Mischpaletten im Auswahlmenü. 
Beliebige nachträgliche Veränderung der 
Bildfarben 


Fraktal-Generator 3D PC 
Spezialversion für Amstrad/Schneider 1512 
alle PC/XT/AT mit EGA- oder VGA-Karte 

DM 69,-* 

Fraktal-Generator 3D CPC 
3-Zoll-Diskette dm 49,-* 


DMV-Verlag ■ Postfach 250 - 3440 Eschwege 






























